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,0.  ABSTRACT  - Continued 

improvements  to  the  structural  model  to  improve  correlation  with  test  data  are  discussed. 

Problems  related  to  the  t mputer  program  which  arose  during  the  course  of  the  simulation  and 
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of  the  dynamic  response  of  helicopters  to  crash  impact  is  currently  limited.  It  is  recommended 
that  K.RASH  be  improved  in  order  for  it  to  be  useful  as  a design  tool  for  the  analysis  of 
structural  crashworthiness. 
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PREFACE 


This  report  was  prepared  by  the  Boeing  Vertol  Company  under  U.S.  Army  Contract  DAAJ02- 
76-C-0015.  The  contract  was  performed  during  the  period  of  March  1976  through  February 
1978  under  the  administrative  direction  of  the  Applied  Technology  Laboratory,  U.S.  Army 
Research  and  Technology  Laboratories  (AVRADCOM),  Fort  Eustis,  Virginia. 

Technical  direction  for  the  project  was  provided  by  G.  T.  Singley , IU  and  L.  T.  Burrows  of  the 
Applied  Technology  Laboratory,  Fort  Eustis. 

The  Boeing  Vertol  Company  Program  Manager  was  Y.  V.  BadriNath.  Test  support,  CH-47  A 
KRASH  model  development,  simulation,  and  correlation  studies  were  conducted  by  Y.  V.  Badri- 
Nath  and  J.  R.  Nicely. 

Other  contributors  to  the  success  of  the  program  included  E.  Widmayet,  L.  Norton,  and 
H.  Wohlgemuth. 
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1.0  SUMMARY 


As  part  of  a continuing  effort  to  advance  the  state  of  the  art  in  aircraft  crashworthiness,  the 
Applied  Technology  Laboratory  (ATL),  U.S.  Army  Research  and  Technology  Laboratories 
(AVRADCOM),  awarded  a contract  to  the  Boeing  Vertol  Company  with  the  following  basic  tasks: 


• Develop  a math  model  of  the  CH-47A  helicopter  crashworthiness. 

• Simulate  the  model  using  the  Army-developed  computer  program  KRASH  and  predict 
the  dynamic  response  of  the  airframe  under  defined  impact  conditions. 

• Incorporate  previously  defined  improvements  into  the  KRASH  computer  program. 

• Correlate  analytical  results  of  the  simulation  with  full-scale  crash  test  data. 

• Recommend  improvements  to  the  KRASH  program. 

During  the  course  of  this  project,  a full-scale  CH-47  A helicopter  crash  impact  test  was  performed 
at  the  National  Aeronautics  and  Space  Administration’s  Langley  Research  Center  (NASA/LRC) 
by  ATL  and  NASA/LRC  personnel.  The  impact  condition  was  planned  to  represent  a nose-down, 
95th  percentile,  rotary-wing  aircraft  survivable  crash  accident  with  the  resultant  contact  velocity 
equal  to  50  fps.  The  test  aircraft  contained  two  cargo  restraint  system  experiments  and  a crew 
restraint  experiment.  One  hundred  twenty-five  channels  of  test  data  were  acquired  through  a 
comprehensive  data  acquisition  system.  Internal  and  external  movie  coverage  was  also  provided. 

Prior  to  the  actual  test,  a structural  model  of  the  proposed  test  article,  consisting  of  36  masses 
and  84  beam  elements,  was  developed  for  simulation  on  KRASH.  The  initial  development  of 
the  KRASH  code  is  described  in  Reference  1.  A later  version,  KRASH  III,  documented  in 
Reference  2,  was  further  modified  by  Boeing  Vertol  during  the  performance  of  contract  DAAJ02- 
75-C-0014  and  is  referred  to  as  S-7900.  The  structural  model  was  simulated  on  S-7900  to  predict 
the  dynamic  response  of  the  airframe  to  the  planned  impact  condition.  The  predictions  were 
used  for  pretest  planning.  Subsequent  to  the  crash  impact  test  at  NASA/LRC,  preliminary 
correlations  of  the  analytical  predictions  with  test  data  indicated  gross  discrepancies.  The  pretest 
model  was  then  modified  to  represent  more  accurately  the  test  article  configuration  and  was 
simulated  for  the  test  impact  condition.  Based  on  the  results  of  this  simulation,  several  refine- 
ments were  incorporated  into  the  CH-47A  KRASH  model  during  successive  runs  in  order  to 


1.  Wittlin,  G.,  and  Gamon,  M.  A.,  EXPERIMENTAL  PROGRAM  FOR  THE  DEVELOPMENT  OF  IMPROVED  HELICOPTER 
STRUCTURAL  CRASHWORTHINESS  ANALYTICAL  AND  DESIGN  TECHNIQUES,  Lockhead-Califomia  Company, 
USAAMRDL  TR72-72A,  TR72-72B,  Eustis  Directorate,  U.  S.  Army  Air  Mobility  Research  and  Development  Laboratory, 
Fort  Eustis,  Virginia,  May  1973,  AD764985  and  AD764986. 

2.  Wittlin,  G.,  and  Park,  K.C.,  DEVELOPMENT  AND  EXPERIMENTAL  VERIFICATION  PROCEDURES  TO  DETERMINE 
NONLINEAR  LOAD-DEFLECTION  CHARACTERISTICS  OF  HELICOPTER  SUBSTRUCTURES  SUBJECTED  TO 
CRASH  FORCES,  Lockheed-Califomia  Company,  USAAMRDL  TR74-12A,  TR74-12B,  Eustis  Directorate,  U.S.  Army  Air 
Mobility  Research  and  Development  Laboratory,  Fort  Eustis,  Virginia,  AD784191  and  AD784192. 
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obtain  an  improved  correlation  between  analytical  predictions  and  test  data.  These  efforts 
resulted  in  a limited  amount  of  success. 

Some  of  the  KRASH  code  limitations  and  errors  which  prevented  closer  correlations  were: 

• Insufficient  permissible  number  of  elements  and  associated  masses  to  suitably 
represent  the  structural  configuration  and  mass  distribution  of  a large  aircraft  such 
as  the  CH-47A  test  article. 

• The  element  library  does  not  allow  proper  modeling  of  an  oleo-type  landing  gear. 

• The  external  spring  element  logic  represents  behavior  of  frangible/crushable  structure 
properly  only  during  the  primary  power  stroke. 

• Overly  simplified  treatment  of  structural  nonlinearities  resulting  in  negative  strain 
energy  being  computed. 

• The  code  cannot  successfully  analyze  vehicle  dynamics  in  the  case  of  successive/ 
multiple  impacts. 

• Basic  coding  errors  in  the  DERIV  subroutine.  Some  of  these  errors  have  since  been 
corrected  (see  Reference  3). 

This  report  contains  details  of  the  simulation  and  correlation  studies  together  with  discussions 
of  those  shortcomings  in  the  KRASH  code  which  affected  achieving  the  objectives  of  the 
program. 

Certain  improvements  previously  defined  in  Reference  4,  as  well  as  corrections  to  program  logic 
found  necessary  during  the  course  of  this  task,  were  incorporated  into  the  KRASH  program 
under  a separate  contract,  Reference  3.  Recommendations  for  additional  improvements  and 
modifications  required  to  enhance  the  capabilities  of  the  KRASH  program  and  permit  its  use 
as  a design  tool  are  included  in  this  report. 


3.  Tinner,  A.  E.  and  Widmayer,  E,  HELICOPTER  STRUCTURAL  CRASHWORTHINESS  SIMULATION  AND  ANALYSIS, 
Boeing  Vertol  Company,  USARTL-78-21,  Applied  Technology  Laboratory,  U.S.  Army  Reaearch  and  Development 
Laboratories  (AVRADCOM),  Fort  Eustii,  Virginia,  to  be  published. 

4.  PROPOSAL  FOR  MATHEMATICAL  MODEL  (KRASH)  OF  CH46  CRASHWORTHINESS,  Boeing  Document  D210-U010-1, 
Boeing  Vertol  Company,  Philadelphia,  Pennsylvania,  December  197S. 
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I 


2.0  INTRODUCTION 


2.1  BACKGROUND 

Since  the  mid  1940’s,  several  major  investigations  have  been  conducted  into  the  nature  and 
characteristics  of  crash  impacts  involving  rotary-  and  fixed-wing  aircraft  (References  5 through 
12).  The  studies  indicate  that  in  many  of  these  accidents  many  of  the  occupants  of  the  aircraft 
would  have  survived  if  crash  survivability  had  been  part  of  the  air  vehicle  design  criteria.  The 
Applied  Technology  Laboratory  (ATL)  of  the  U.S.  Army  Research  and  Technology  Laboratories 
(AVRADCOM),  Fort  Eustis,  Virginia,  a pioneer  in  these  efforts,  has  conducted  40  full-scale 
crash  tests  of  various  aircraft  as  well  as  tests  on  several  major  components  during  the  course  of 
research  activity  directed  toward  understanding  and  defining  the  crash  environment. 

These  experimental  and  research  efforts  culminated  in  the  establishment  of  design  and  test 
criteria  for  incorporating  crashworthiness  into  helicopter  airframes.  Relevant  design  criteria  are 
specified  in  MIL-STD-1290,  Reference  13.  Data  on  potentially  survivable  crash  impact  velocities 
and  accelerations  applicable  to  different  classes  of  aircraft,  e.g.,  helicopters,  light  fixed-wing 
aircraft  and  fixed-wing  transport  aircraft,  together  with  recommended  crashworthiness  design 
practices  are  provided  in  Reference  5. 

In  order  to  meet  these  requirements,  the  aircraft  structure  shall  be  so  designed  that,  in  a 95th- 
percentile  survivable  crash  impact,  the  structural  envelope  for  passengers  and  crew  shall  attenuate 
the  crash  impulse  loads  to  within  human  tolerance  levels  and  maintain,  by  a controlled  collapse 


5.  CRASH  SURVIVAL  DESIGN  GUIDE,  Dynamic  Science,USAAMRDL  TR71-22,  Eustis  Directorate,  U.S.  Army  Air 
Mobility  Research  and  Development  Laboratory,  Fort  Eustis,  Virginia,  Revised  October  1971,  AD733358. 

6.  Greer,  D.  L.,  et  al,  CRASHWORTHY  DESIGN  PRINCIPLES,  FAA  TR  ADS- 24,  Federal  Aviation  Administration, 
Washington,  D.G 

7.  Reed,  W.  H.,  et  aL  FULL  SCALE  DYNAMIC  CRASH  TEST  OF  A LOCKHEED  CONSTELLATION  MODEL  1649 
AIRCRAFT,  FAA  TR  ADS-38,  Federal  Aviation  Administration,  Washington,  D.C. 

8.  Ttimbow,  J.  W„  A DYNAMIC  TEST  OF  AN  H-25  HELICOPTER,  SAE  Report  517A,  National  Aerostatic  Meeting, 

Society  of  Automotive  Engineer!,  Inc.,  Warrendale,  Pennsylvania,  April  1972. 

9.  Fitzgibbon,  D.  P„  et  al,  CRASH  LOADS  ENVIRONMENT  STUDY,  FAA  TR  DS  67-2,  Federal  Aviation  Administration, 
Washington,  D.G 

10.  UH-1  ACCIDENT  SUMMARY,  USABAAR  Report,  U.S.  Army  Board  for  Aviation  Accident  Research,  Fort  Rucker, 
Alabama,  1963. 

11.  Mattox,  K.  L.,  INJURY-EXPERIENCE  IN  ARMY  HELICOPTER  ACCIDENTS,  USABAAR  Report,  U.S.  Army  Board  for 
Aviation  Accident  Research,  Fort  Rucker,  Alabama,  1967. 

11  Haley,  J.  L,  HELICOPTER  STRUCTURAL  DESIGN  FOR  IMPACT  SURVIVAL,  USABAAR  Report,  U.S.  Army  Board 
for  Aviation  Accident  Research,  Fort  Rucker,  Alabama,  November  1970. 

13.  Military  Standard  1290(AV),  LIGHT  FIXED  AND  ROTARY  WING  AIRCRAFT  CRASHWORTHINESS,  U.S.  Department 
of  Defense. 
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of  structural  elements,  a minimum  inhabitable  volume  in  the  occupied  areas.  Further,  it  is 
necessary  to  prevent  mechanical  injury  to  the  occupants  resulting  from  foreign  objects  such  as 
rotor  blade  fragments,  crash  debris,  and  heavy  concentrated  masses  penetrating  the  occupied 
areas  during  the  crash  impact. 

It  became  evident  that  in  order  to  be  able  to  incorporate  crashworthiness  into  airframes  during 
preliminary  design  stages,  an  analytical  tool  capable  of  predicting  the  nonlinear  time-dependent 
responses  of  structural  elements  to  crash-induced  loads  was  necessary.  This  led  to  the  develop- 
ment of  several  computer  programs  based  upon  a macrofinite  element  approach.  Perhaps  the 
most  reliable  of  these  for  the  analysis  of  airframe  structural  response  under  crash  impact  condi- 
tions is  the  KRASH  program  developed  under  ATL  sponsorship  by  the  Lockheed-Califomia 
Company. 

The  mathematical  model  of  the  aircraft  used  in  the  analysis  consists  of  a set  of  lumped  masses 
connected  by  beam  type  structural  elements  as  shown  in  Figure  1.  Equations  of  motion  relating 
the  acceleration  and  velocities  of  each  mass  to  the  forces  of  deformation  of  the  connecting 
elements  are  established.  Nonlinear  structural  behavior  and  element  rupture  are  taken  into 
account.  Initial  conditions,  namely  translational  and  rotational  velocities  and  attitudes,  are 
utilized  to  obtain  time  history  solutions  to  the  equations  of  motion.  The  actual  computations 
are  performed  using  numerical  analysis  techniques  on  a digital  computer.  Details  of  the  analytical 
development,  the  program  listing,  and  the  validation  are  found  in  Reference  1. 

2.2  TEST  ARTICLE 

During  March  1975,  a CH-47C  helicopter  with  several  onboard  experiments  was  crash  tested 
at  the  NASA/Langley  Research  Center.  The  test  provided  valuable  data  regarding  the  performance 
of  several  types  of  crash-attenuating  crew/troop  seat  installations  as  well  as  on  the  overall 
structural  behavior  of  the  airframe  when  subjected  to  a 95th-percentile,  nose-up  crash  impact. 

Full  details  of  the  test  conditions  and  test  results  are  reported  in  Reference  14. 

Hence,  during  the  initial  stage  of  this  program,  ATL  investigated  the  possibility  of  using  a dif- 
ferent helicopter  model  currently  in  the  military  inventory  for  crash  testing.  The  U.S.  Navy 
expressed  some  interest  in  crash  testing  a CH-46  aircraft,  as  the  knowledge  gained  from  such  a 
test  would  also  be  of  use  for  fleet  applications.  A YHC-1A  airframe  was  made  available  for  this 
purpose.  It  was  thought  that  this  airframe  was  identical  in  structural  arrangement  with  the  CH-46 
airframes  currently  in  the  U.S.  Navy  and  U.S.  Marine  inventory.  However,  an  inspection  of  the 
supplied  airframe  revealed  that  its  structure  was  highly  non  representative  of  the  CH-46  structural 
configuration.  As  such,  any  data  obtained  from  crash  testing  this  specific  airframe  would  not  be 
of  significant  use.  Therefore,  it  was  concluded  that  an  available  CH-47A  airframe  should  be 


14.  Singley,  G.T.,  III,  FULL-SCALE  CRASH  TESTING  OF  A CH-47C  HELICOPTER,  Paper  Number  1082,  32nd  Annual 
National  Fomm,  American  Helicopter  Society,  Washington,  D.G,  May  1976. 


18 


utilized  for  this  program.  The  test  article  would  carry  several  onboard  U.S.  Army  cargo  experi- 
ments together  with  an  NADC-developed  crew  restraint  experiment.  Further,  the  impact  condi- 
tions were  selected  to  represent  a 95th-percentile,  survivable,  nose-down  crash  impact. 

2.3  PROGRAM  OBIECTIVES 

The  specific  objectives  of  the  program  were  to: 

• Simulate  the  dynamic  response  of  a CH-47A  helicopter  to  crash  impact  by  exercising 
computer  program  KRASH. 

• Correlate  the  predictions  with  data  from  a CH-47A  crash  test. 

• Incorporate  certain  previously  defined  improvements  to  KRASH  and  recommend 
additional  improvements  to  enhance  the  usefulness  of  the  program. 

In  order  to  meet  the  objectives  in  a timely  manner,  the  following  tasks  were  defined. 

Task  1 

• Model  the  dynamic  structural  response  of  the  CH-47A  aircraft  to  crash  impact 
forces  using  computer  program  KRASH.  The  model  should  represent  the  CH-47A 
aircraft  to  be  crash  tested  in  1976  by  ATL  and  NASA  at  NASA/Langley  Research 
Center. 

• Predict  the  structural  response  of  the  CH-47A  to  the  following  conditions  representing 

a 95th-percentile  survivable  crash  impact.  These  predictions  were  to  be  used  in  formula- 
ing  detailed  test  plans  for  the  projected  CH-47Acrash  test. 


Impact  velocities 

50  fps 

Resultant 

42  fps 

Vertical 

27.1  fps 

Forward 

0 fps 

Lateral 

Aircraft  attitude 

0 Degrees  yaw 

0 Degrees  roll 

5 Degrees  nose-down  pitch 

• Participate  in  the  formulation  of  the  test  plan  for  and  support  the  CH-47A  crash 
test  at  NASA/LRC. 
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Task  II 


• Following  the  crash  tests,  exercise  the  CH-47A  structural  model  on  the  KRASH  com- 
puter program  using  actual  test  conditions,  and  correlate  the  results  of  the  simulation 
with  the  crash  test  data.  Improve  the  model  accuracy  to  obtain  better  correlation 
between  results  of  simulation  and  test  data. 

• Recommend  improvements  (and  install  modifications  identified  in  Reference  4)  to 
the  KRASH  computer  program. 

• Evaluate  the  crash  impact  performance  of  the  fuselage. 

Initially,  the  analytical  efforts  were  to  have  utilized  the  Army-supplied  KRASH  III  program. 
However,  as  Boeing  Vertol  had  already  incorporated  several  improvements  into  the  KRASH 
code,  it  was  decided  that  the  improved  KRASH  code  S-79  by  Boeing  Vertol  would  be  used  for 
all  simulation  studies. 

The  long-term  goal  of  this  and  related  crash  simulation  R&D  programs  is  to  validate  KRASH  as 
an  analytical  tool  which  would  permit  a quick  and  accurate  evaluation  of  the  crashworthiness  of 
an  aircraft  sufficiently  early  in  the  design  process  to  permit  incorporation  of  required  changes. 

In  order  to  achieve  this  goal  it  is  first  necessary  to  determine  the  applicability  and  limitations 
of  the  KRASH  program  as  it  currently  exists.  During  the  performance  of  the  tasks  defined  above 
a great  deal  of  experience  has  been  gathered  in  the  use  of  the  KRASH  program  and  some  of 
the  limitations  identified.  Several  of  the  limitations  so  identified  have  been  eliminated  through 
the  improvements  installed  into  the  computer  program  and  many  other  improvements  are  being 
made  by  the  Lockheed-California  Company  under  the  terms  of  FAA  Contract  DOT-FA75-WA- 
3707. 


3.0  PRETEST  SIMULATION  STUDIES 


3.1  KRASH  COMPUTER  PROGRAM 

The  KRASH  computer  program  was  developed  during  the  1972-1974  time  period.  The  program 
computes  the  dynamic  response  of  arbitrarily  interconnected  lumped  masses  to  a defined  set  of 
initial  impact  conditions.  Each  of  the  masses  has  six  degrees  of  freedom;  the  interconnection 
between  masses  is  accomplished  by  beam-type  elements.  Loads  are  induced  into  the  structure 
through  the  deformation  of  external  springs  extending  from  appropriate  masses  on  the  vehicle 
exterior.  The  equations  of  motion  for  each  mass  consider  gravitational,  aerodynamic,  and 
inertial  forces  together  with  the  internal  forces  and  moments  due  to  deformation  of  associated 
structural  elements.  Structural  damping  is  also  included.  Nonlinear  structural  properties  of  a 
beam  element  are  obtained  by  modifying  the  beam  stiffness  matrix  by  suitable  stiffness  reduc- 
tion factors  specified  as  piecewise  linear  functions  of  element  deformation.  A step-by-step 
numerical  analysis  scheme  is  used  to  integrate  the  resulting  equations  of  motion.  A detailed 
description  of  the  development  of  the  mathematical  model,  together  with  program  listings,  is 
found  in  Reference  1.  A revised  version  of  the  program  including  some  additions  and  improve- 
ments, as  described  in  Reference  2,  is  now  available  as  KRASH  III. 

The  improved  version  KRASH  III  still  possessed  certain  definite  limitations.  Specifically,  the 
structural  representation  did  not  provide  for  pure  pin-ended  axially  loaded  elements.  This 
prevented  modeling  of  items  such  as  airframe  skins  which  carry  load  in  diagonal  tension.  In  addi- 
tion, the  program  did  not  permit  for  variation  in  the  size  of  the  iteration  time  step  based  on  a 
test  of  solution  stability.  Only  a constant  time  step  routine  was  provided.  This  could  lead  to 
rapid  divergence  and  instability  in  the  solutions  to  the  equations  of  motion  unless  extremely 
small  time  steps  were  employed,  which  in  turn  would  result  in  excessive  computer  run  time  and 
correspondingly  high  costs.  Another  identified  limitation  of  KRASH  III  was  that  the  algorithm 
used  for  computing  beam  axial  load  did  not  account  for  large  deflections. 

During  work  performed  at  Boeing  Vertol  in  applying  KRASH  under  other  contracts  with  UMTA 
(Urban  Mass  Transportation  Authority,  Reference  15)  and  ATL,  another  version  of  KRASH  was 
developed  which  incorporated  a capability  of  handling  the  above  problems.  This  program, 
designated  S-79,  was  operational  on  the  IBM  370-65  system  and  the  Xerox  Sigma  9 engineering 
computing  system  available  through  the  Boeing  Computer  Services.  At  this  time  S-79  was  only 
operational  in  single  precision.  Due  to  the  cote  limitations  of  Sigma  9,  the  number  of  masses 
and  interconnecting  elements  in  an  S-79  structural  model  were  restricted. 


15.  Widmeyer,  E.,  Tanner,  A.E.,  and  Klump,  Robert,  CRASHWORTHINESS  ANALYSIS  OF  THE  UMTA  STATE-OF-THE- 
ART  CARS,  DOT-TSC-791-3,  U.S.  Department  of  Transportation,  Urban  Mass  Transit  Administration,  Washington,  D.C, 
June  1975. 
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3.2  S-79  COMPUTER  PROGRAM 


As  previously  stated  S-79  was  essentially  the  KRASH  III  computer  code  with  the  following  addi- 
tional capabilities. 

• Availability  of  a pin-ended  axial  structural  element  with  tension  only  or  compression 
only  capability. 

• Correction  for  the  effects  of  large  deflections  on  axial  forces  in  the  interconnecting 
elements. 

In  addition,  during  the  course  of  this  effort,  the  following  previously  identified  improvements 
were  installed  on  S-79. 

• An  optional  integration  scheme  employing  a variable  time  step  based  on  input  error 
controls. 

• Improved  solution  stability  with  the  incorporation  of  a ten-step  integration  scheme  for 
element  ruptures. 

• Evaluation  of  hysteresis  effects  during  element  load-unload-load  cycle. 

• Restart  capability  which  provides  for  the  storing  of  the  calculated  time-dependent 
data.  This  permits  modifying  the  initial  parameters  and  continuing  calculation  at  any 
stored  time  increment. 

Detail  discussions  of  these  improvements  together  with  appropriate  program  listings  are  given  in 
Reference  3. 

3.3  CH-47A  KRASH  MODEL 
3.3.1  Preliminary  Requirements 

The  primary  requirements  for  the  development  of  a KRASH  model  are  the  definition  of  mass 
points  and  associated  mass  values,  interconnecting  elements  and  their  properties,  and  external 
springs  which  together  will  properly  represent  the  structural  dynamic  properties  of  the  aircraft 
in  a crash  environment. 

In  defining  the  mass  distribution  for  the  model,  it  is  necessary  to  judiciously  select  locations 
that  would  represent  the  overall  mass  distribution  of  the  airframe  and  also  permit  evaluation  of 
the  dynamic  response  of  the  airframe  in  regions  of  interest  (i.e.,  near  onboard  experiments  and 
crew  seats).  S-79  Program,  Sigma  9 Version,  limits  the  number  of  mass  points  to  80.  However, 
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since  on  the  average  an  addition  of  a mass  point  requires  two  or  more  beam  elements,  the 
possible  number  of  mass  points  in  the  model  is  restricted  by  the  limit  on  beam  elements. 


Interconnecting  elements  represent  the  overall  axial,  shear,  bending,  and  torsional  structural 
properties  of  the  airframe.  The  number  of  elements  is  limited  to  85  for  the  S-79,  Sigma  9 
version. 

External  springs  are  located  at  the  underfloor  and  landing  gear  mass  points.  These  springs  are 
oriented  vertically  and  represent  the  crushable  underfloor  structure  and  landing  gears. 

A baseline  configuration  of  the  CH-47A  KRASH  model  was  constructed  in  accordance  with 
the  foregoing  requirements  and  is  shown  in  Figure  2. 

3.3.2  Model  Mass  Properties 

Data  for  the  mass  properties  was  obtained  from  the  following  sources: 

Test  aircraft  mass  properties  in  terms  of  aircraft  weight  and  c.g.  location,  together  with  the 
weights  and  locations  of  test  equipment  and  experiments  as  supplied  by  ATL,  are  shown  in 
Table  1 and  Figure  3.  Basic  CH-47A  helicopter  mass  property  data  is  contained  in  the  weight  and 
balance  report  (Reference  16).  In  order  to  obtain  an  acceptable  dynamic  model,  the  model 
mass  properties  should  closely  correspond  to  those  of  the  test  article.  For  the  purposes  of  this 
simulation,  a match  of  the  following  as  a minimum  was  required: 

• Aircraft  gross  weight 

• Aircraft  longitudinal  and  vertical  center-of-gravity  position 

• Moments  of  inertia  about  their  own  c.g.  axes  of  large  concentrated  masses,  e.g., 
powerplants 

• Aircraft  pitch  moment  of  inertia 

The  nodal  framework  of  the  model  is,  to  a large  extent,  dictated  by  the  need  to  provide  an 
adequate  structural  representation  within  the  program  constraints.  Hence,  the  requirement  to 
match  both  c.g.  position  and  pitch  moment  of  inertia  leads  to  conflicting  demands.  Several 
iterations  were,  therefore,  required  before  an  acceptable  nodal  mass  distribution  was  defined. 
This  distribution  and  the  model  mass  properties  are  shown  in  Table  2. 

It,  ' : n 

16.  WEIGHT,  BALANCE,  AND  MOMENTS  OF  INERTIA  OF  THE  YHC-1B  HELICOPTER,  Boeing  document  1 14-W-03, 

Boeing  Vertol  Company,  Philadelphia,  Pennsylvania,  1961. 
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• 

SHELL  & PYLON 

MASSES 

36 

BEAMS 

62 

• 

AXIAL  ELEMENTS 

TENSION  ONLY 

20 

AFT  L.G.  OLEO 

2 

• 

LANDING  GEARS 

EXTERNAL  SPRINGS  : 

4 

• 

UNDERFLOOR  STRUCTURE 
(CRUSH  AREA) 

EXTERNAL  SPRINGS  : 

12 

TABLE  1.  CH-47A  IMPACT  TEST  ARTICLE  MASS  PROPERTIES 


Item 

Weight  (lb) 

CG  Station 

1 

Aircraft  as  weighed 

13,488 

354.5 

2 

Fuel  cells 

60 

316.8 

3 

Water  in  cells 

3,811 

316.8 

4 

Dummies  (two) 

390 

75.1 

5 

Aft  trailer  and  restraints 
(assumed  bearing  on  wheels) 

1,426 

369 

6 

Fwd  trailer  and  restraints 

1,378 

165 

7 

Aft  pallet  and  restraints 

834 

462 

8 

Fwd  pallet  and  restraints 

814 

280 

9 

Baseline  cargo 
(right  side) 

179 

326 

10 

Batteries 
(left  side,  BL32) 

152 

300 

11 

3 stub  blades  (fwd) 

384 

86.7 

12 

3 stub  blades  (aft) 

384 

553.7 

13 

Ballast 

1,000 

107.5 

Total 

24,300 

323.5 

Estimated  pitch  inertia  = 1.904  x 10^  lb  in.  sec^ 


TABLE  2.  CH-47A  CRASHWORTHINESS  PRETEST  MODEL  MASS  PROPERTIES 
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3.3.3  Model  Structural  Properties 

The  basic  structure  of  the  CH-47A  airframe  excluding  skin-type  shear  elements  is  shown  in  Figure 
4.  Constructional  details  of  a typical  fuselage  frame  element  are  shown  in  Figure  5.  The 
properties  of  the  structural  elements  in  the  math  model  were  assembled,  making  use  of  several 
sources  as  follows: 

Airframe  structural  analysis  substantiating  the  ultimate  strength  of  the  airframe  for  design  loading 
conditions  given  in  References  17  through  20.  These  documents  contain  detailed  structural 
properties  for  all  elements  constituting  primary  load  paths  within  the  basic  structure,  including 
their  ultimate  load  capability.  Further,  the  design  static  strength  of  the  airframe  was  substanti- 
ated during  the  CH-47A  Static  Test  Program  conducted  by  the  U.S.  Air  Force  at  Wright-Patterson 
Air  Force  Base.  The  results  of  the  test  program  are  available  in  Reference  21.  Although 
Reference  21  does  not  include  any  details  of  structural  failures  evidenced  during  the  several  static 
tests,  such  data  are  contained  in  some  unpublished  notes  available  at  Boeing  Vertol. 

The  above  data  were  utilized  to  obtain  preliminary  structural  properties  for  the  interconnecting 
“beam”  elements.  Based  on  extensive  data  from  shear  beam  tests  conducted  by  NASA,  Refer- 
ence 22,  the  diagonal  tension  field  strength  of  the  skin  panels  was  approximated  to  define  suit- 
able “tie  rod”  areas.  Factors  representing  the  lumping  together  of  several  frame  bays  to  form  the 
KRASH  model  frame/longitudinal  bending  elements  and  the  effects  of  high  rates  of  strain  on 
elastic  properties  were  utilized  to  obtain  the  model  element  properties  in  the  elastic  range.  Stiff- 
ness reduction  factors  were  evaluated  on  the  basis  of  known  behavior  in  the  plastic  range  of 
similar  structural  elements  under  dynamic  loading  conditions  contained  in  References  2 and  23, 
and  test  data  obtained  during  dynamic  tests  on  riveted  joints.  Rupture  criteria  for  key  elements 
were  developed  utilizing  high  rates  of  strain  data  and  estimated  failure  modes.  The  properties 
of  the  external  springs  representing  the  “crush”  capabilities  of  the  underfloor  structure  were 


17.  FORWARD  PYLON  ANALYSIS,  VERTOL  MODEL  YHC-1B,  HC-1B,  Boeing  document  114-S-08.2.1.  Boeing  Vertol 
Company,  Philadelphia,  Pennsylvania,  April  1961. 

18.  CENTER  SECTION  ANALYSIS,  VERTOL  MODEL  YHC-1B,  HC-1B,  Boeing  document  114-S-08.2.3,  Part  I,  Boeing  Vertol 
Company,  Philadelphia,  Pennsylvania,  March  1961. 

19.  CENTER  SECTION  ANALYSIS,  VERTOL  MODEL  YHC-1B,  HC-1B,  Boeing  document  U4-S-08.2.3,  Part  II,  Boeing  Vertol 
Company,  Philadelphia.  Pennsylvania,  March  1961. 

20.  AFT  PYLON  ANALYSIS,  VERTOL  MODEL  YHC-1B,  HC-1B,  Boeing  document  114-S-08.2.2,  Boeing  Vertol  Company, 
Philadelphia,  Pennsylvania,  March  1961. 

21.  Schneider,  R.L,  STATIC  TEST  PROGRAM  FOR  CH-47A  HELICOPTER,  USAFFDL  RTD-TDR-63-4230,  U.S.  Air  Force 
Flight  Dynamics  Laboratory,  Wright-Patterson  Air  Force  Base,  Ohio,  1963. 

22.  Kuhn,  Petenon,  and  Levin,  A SUMMARY  OF  DIAGONAL  TENSION,  PART  II,  EXPERIMENTAL  EVIDENCE,  NACA 
TN2662,  National  Advisory  Committee  for  Aeronautics,  Washington,  D.C.,  May  1952. 

23.  SURVEY  OF  STRAIN  RATE  EFFECTS  ON  MECHANICAL  PROPERTIES  OF  MATERIALS,  Boeing  document 
SA2-5522-1-449,  The  Boeing  Company,  Seattle,  Washington,  August  1968. 
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Figure  4.  Basic  Structure  of  the  CH-47A 


approximated  from  available  structural  data  for  these  areas  together  with  applicable  test  data. 
Sample  calculations  are  shown  in  Appendix  A. 

The  basic  strength  data  for  the  main  and  auxiliary  landing  gears  were  obtained  from  References 
24  and  25.  Performance  and  failure  modes  data  are  available  from  References  26  and  27,  and 
unpublished  CH-47  height/velocity  flight  test  data.  These  data  were  utilized  in  defining  the 
properties  of  the  four  external  springs  which  represent  the  aircraft  landing  gear. 

It  should  be  noted  here  that  representation  of  oleo  shock  absorber  by  the  external  springs  in 
KRASH  is  an  extremely  crude  approximation.  The  load  resistance  developed  by  oleos  during 
impact  is  not  a function  of  deformation  but  is  proportional  to  the  square  of  the  velocity  of 
closure.  Also,  rebound  characteristics  are  dictated  by  orifice  restrictions  and  hence  nonlinear. 
There  are  also  other  major  differences  between  the  two  which  together  will  produce  inaccurate 
analytical  results,  especially  after  rebound. 

3.3.4  Model  Limitations 

Two  approaches  to  crashworthiness  analysis  are  possible,  the  first  based  on  finite  element 
analysis  techniques  and  the  second  on  the  Lockheed  hybrid  mathematical  model  incorporated 
in  KRASH.  However,  the  state  of  the  art  in  finite  elements  does  not  include  a validated  pro- 
gram to  perform  the  crashworthiness  analysis  of  entire  aircraft.  It  can  also  be  seen  from 
Figure  6,  which  shows  the  NASTRAN  model  of  the  CH-47  airframe  structure  used  for  static 
strength  analysis,  that,  even  if  such  a program  were  available,  it  would  be  too  cumbersome  and 
possibly  too  costly  to  permit  its  use  as  a design  tool.  On  the  other  hand,  KRASH  has  been  ex- 
tensively correlated  and  demonstrated  and  is  considerably  less  expensive  than  classic  finite 
element  models.  The  KRASH  model,  Figure  2,  is  necessarily  a more  approximate  representation 
of  the  aircraft.  However,  given  the  state  of  the  art,  it  is  doubtful  whether  a finite  element  ap- 
proach would  be  more  accurate  than  KRASH. 

A considerable  amount  of  effort  was  expended  in  attempting  to  represent  the  structural  be- 
havior of  the  real  airframe  in  the  KRASH  model.  The  limitations  in  the  KRASH  code  required 
that  several  simplifying  assumptions  had  to  be  made  in  constructing  the  model.  These 


24.  FORWARD  LANDING  GEAR  ANALYSIS,  VERTOL  MODEL  YHC-1B,  HC-1B,  Boeing  document  114-S-05.1,  Boeing 
Vertol  Company,  Philadelphia,  Pennsylvania,  January  1961. 

25.  AFT  LANDING  GEAR  ANALYSIS,  VERTOL  MODEL  YHC-1B,  HC-1B,  Boeing  document  1 14-S-05.2,  Boeing  Vertol 
Company,  Philadelphia,  Pennsylvania,  April  1961. 

26.  DROP  TEST  ON  CH-47  A FORWARD  LANDING  GEAR,  Boeing  document  114-T-75,  Boeing  Vertol  Company, 
Hiiladelphia,  ftnnjylvania,  April  1961. 

27.  DROP  TEST  ON  CH-47  A AFT  LANDING  GEAR,  Boeing  document  1 14-T-76,  Boeing  Vertol  Company,  Philadelphia, 
Ihnnsylvania,  May  1961. 
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simplifications  tend  to  mask  detailed  structural  response  and  provide  a poor  resolution.  It  is 
therefore  recognized  that  the  dynamic  response  obtained  by  simulating  this  model  for  a given 
crash  impact  condition  can  only  be  used  to  predict  the  overall  dynamics  of  the  aircraft  and 
gross  structural  behavior.  Even  here  the  accuracy  of  the  model  response  past  the  initial  power 
stroke  is  somewhat  questionable  due  to  the  approximations  involved  in  the  modeling  of  the 
landing  gear  and  frangible  structure. 


3.4  PRETEST  PREDICTIONS 


Several  computer  runs  of  the  CH-47A  crashworthiness  model  were  made  initially  to  debug  and 
fine  tune  the  model  for  the  defined  impact  conditions.  Some  of  the  problems  which  surfaced 
during  these  initial  runs  are  discussed  here. 


The  first  problem  concerned  stability  of  the  solution  process.  A gross  instability  was  indicated 
by  the  monotonic  divergence  of  the  total  energy  of  the  system  as  the  solution  progressed.  For 
stable  solutions,  the  total  energy  must  remain  a constant.  A detailed  analysis  of  the  computer 
results  showed  that  the  energy  divergence  was  due  to  negative  strain  energy  feeding  back  into 
the  system.  The  negative  energy  was  being  generated  because  of  inconsistency  between  the 
coupled  terms  in  the  stiffness  matrix  of  a given  beam  element,  associated  stiffness  reduction 
factors  and  the  method  used  in  the  KRASH  program  to  compute  beam  internal  forces  and  mo- 
ments. Errors  in  this  computation  affect  the  forces  and  moments  applied  to  the  connected 
mass.  A rapid  divergence  in  the  solutions  to  the  equations  of  motion  results. 


An  exact  resolution  to  this  problem  requires  the  stiffness  reduction  (KR)  factors  to  take  into 
account  the  coupling  constraints  between  translational  and  rotational  deformations  of  a beam 
element  at  each  computational  step.  This  requirement  can  be  met  by  modifying  the  DERIV 
subroutine  in  KRASH  to  include  a logic  block  to  check  compatibility  of  and  make  suitable 
corrections  to  the  KR  tables  defined  initially.  Modifications  were  beyond  the  scope  of  this 
effort,  so  an  alternative  procedure  was  adopted.  This  consisted  of  progressively  adjusting, 
during  the  solution  process,  the  interrelationship  between  coupled  terms  of  the  stiffness  matrix 
and  associated  KR  factors  on  the  basis  of  beam  deformation  relationships,  until  an  acceptable 
stable  solution  was  obtained.  The  stability  of  the  solution  was  considered  acceptable  provided 
that  the  following  criteria  were  satisfied  throughout  the  solution  process: 


• If  negative  strain  energy  is  computed  for  a structural  element,  this  strain  energy 
should  be  less  than  one  percent  of  the  total  strain  energy  in  the  model. 

• The  total  energy  of  the  model  should  be  within  ten  percent  of  the  value  at  impact. 

It  was  also  noticed  that  although  the  simulated  impact  conditions  were  symmetrical  about  the 
aircraft  vertical  plane  there  was  a high  degree  of  asymmetry  in  the  model  dynamic  response 


i 
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which  could  not  be  accounted  for  by  the  slight  nonsymmetrical  location  of  the  aircraft  lateral 
c.g.  This  problem  is  treated  in  greater  detail  in  section  5.2. 


r 


Subsequent  runs  showed  that  the  energy  growth  problem  had  been  acceptably  resolved. 

Several  runs  were  then  made  with  minor  modifications  to  the  model  until  a satisfactory  simu- 
lation was  established.  Stable  solutions  were  obtained  over  a solution  time  of  0.20  second  after 
impact.  The  number  of  iterations  required  for  the  final  pretest  run  was  in  excess  of  4,000. 
Figure  7 is  a time  history  of  the  predicted  vehicle.  It  is  seen  that  there  is  a 7.2-percent  loss  in 
total  energies  over  the  solution  time. 


In  another  similar  study,  Reference  28,  it  is  reported  that  the  total  energy  change  was  2.5% 
over  0.160  second.  The  model  sizes  in  the  two  studies  are  comparable  but  the  latter  involved 
only  about  half  the  number  of  iterations.  It  was,  therefore,  concluded  that  the  stability  of  the 
solution  process  was  satisfactory. 

The  results  of  this  last  simulation  were  used  to  predict  the  dynamic  response  of  the  CH-47A 
aircraft  during  the  crash  impact  test.  Figure  8 shows  time  histories  of  model  c.g.  horizontal  and 
vertical  velocities.  It  is  seen  that  the  vertical  velocity  is  reduced  by  approximately  50%  during 
the  first  0.06  second  after  impact;  further  deceleration  occurs  at  significantly  reduced  rates. 
From  Figure  7,  it  can  also  be  seen  that  a significant  part  of  the  vehicle  kinetic  energy  has  been 
absorbed  through  crushing  and  strain  energy  mechanisms  by  this  time.  The  vehicle  horizontal 
velocity,  however,  decreased  at  a fairly  steady  rate  as,  apart  from  frictional  effects,  there  is  no 
other  specific  energy  absorption  mechanism  available  for  this  component  of  the  kinetic  energy. 


Table  3 is  a summary  of  predicted  significant  events  during  the  crash  impact  sequence  showing 
the  time  after  impacts  at  which  individual  structural  elements  in  the  model  rupture  and  when 
ground  contact  at  specific  mass  points  occur  together  with  the  associated  vehicle  c.g.  velocities. 
The  data  indicate  that  by  0.065  second  after  impact,  the  floor  frame  lower  longerons  and  shell 
elements  at  fuselage  station  240  have  experienced  structural  failure.  The  progressive  loss  of 
model  structural  connectivity  is  illustrated  in  Figure  9.  The  time  histories  of  predicted  crushing 
of  the  underfloor  structure  (represented  in  the  model  by  external  springs)  are  shown  for  three 
nodal  locations  in  Figures  10  through  12. 

Longitudinal  and  vertical  accelerations  for  all  masses  to  the  left  of  the  model  plane  of  symmetry 
obtained  from  this  pretest  simulation  were  subsequently  processed  by  ATL  using  a 100-Hz, 
low-pass  (LP)  digital  filter  described  in  Reference  14.  The  processed  data  is  included  in 
Appendix  B. 


28.  Wittlin,  Gil,  and  Gamon.  Max  A.,  A METHOD  OF  ANALYSIS  FOR  GENERAL  AVIATION  AIRPLANE  STRUCTURAL 
CRASHWORTHINESS,  FAA-RD- 76-123,  U.S.  Department  of  Transportation,  Federal  Aviation  Administration,  Systems 
Research  and  Development  Service,  Washington,  D.G,  September  1976. 


36 


r 


TABLE  3.  PREDICTED  SEQUENCE  OF  EVENTS  AFTER 
IMPACT  (PRETEST) 


Time 

Element 

Rupture 

Mass  Point 

Contact 

X 

Z 

0 

9,  12 

325 

504 

0.0302 

10  - 11 

0.0411 

17  - 18 

230 

340 

0.0510* 

16  - 17 

215 

318 

0.0606 

5 

0.0616 

11  - 18 

0.0639 

6-7 

0.0642 

4 

185 

240 

0.0651 

8-16 

0.0687 

3 

169 

218 

0.0758 

8-10 

158 

197 

0.0907 

6-13 

132 

144 

0.1080 

23 

10t> 

120 

0.1136** 

26 

104 

92 

0.1171 

13  - 19 

1 

0.1271 

17 

0.1373 

14  - 19 

53 

56 

0.1420 

14  - 15 

53 

42 

0.1570 

7-15 

32 

0.9 

* Center  section  skin  aft  of  sta  320  buckled/rupture 

**  Center  section  bottom  skin  buckled/rupture 


TIME:  0 TO  .0623  SECOND 


SIMULATION  CONDITIONS: 
XQ  - 325,  Y - 0,  Z0  - 504 
<t>  - 0, « - -.08725,  <h  - 0 


ELEMENTS  WHICH  RUPTURED 

BETWEEN  .03  AND  .052  SECOND  (SEE  TABLE  3) 


TIME:  .0524  TO  .0828  SECOND 


Figure  9.  CH-47A  Crashworthiness  Predictions  of  Progressive  Model  States. 
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Figure  1 1 . Predicted  Crushing  of  Forward  Fuselage . 


VERTICAL  CRUSHING 


0 .10 


TIME  - SECOND 


Figure  12.  Predicted  Crushing  of  Center  Section. 
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4.0  CH-47A  CRASH  IMPACT  TEST 


4.1  OBJECTIVES 

The  principal  objectives  of  the  test  were: 

a.  To  obtain  data  on  the  dynamic  response  of  the  helicopter  when  subjected  to  a 95th- 
percentile  survivable  crash  impact.  The'  test  data  will  be  correlated  with  the  predicted 
dynamic  response  of  the  CH-47A  KRASH  model  for  the  prescribed  impact  conditions, 
These  correlation  studies  are  intended  to  help  develop  the  KRASH  program  into  a 
useful  simulation  tool  for  the  crashworthiness  analysis  of  an  aircraft  during  its  design 
stage. 

b.  To  obtain  data  and  evaluate  energy-absorbing  cargo  restraint  systems  as  compared  to 
conventional  cargo  restraint  systems  in  attenuating  crash-induced  forces  on  the  cargo 
in  order  to  optimize  cargo  restraint  and  tiedown  point  structural  design  criteria. 

c.  To  evaluate  the  performance  of  an  NADC-developed  inflatable  crashworthy  crew 
restraint  system  under  a 95th-percentile  survivable  helicopter  crash  impact  loading 
condition. 

d.  To  obtain  additional  data  on  structural  dynamics  of  a helicopter  airframe  under 
crash  impact  loadings  which  will  contribute  to  the  development  of  crashworthiness 
features  in  future  helicopters. 

Objective  (a)  is  the  focus  of  the  efforts  described  in  this  report. 

4.2  TEST  ARTICLE  DESCRIPTION 

The  test  article  was  an  early  model  CH-47A  helicopter,  U.S.  Army  Serial  No.  61-2418,  B/V 
Tab  No.  B22,  manufactured  by  Boeing  Vertol  in  1963.  The  aircraft  life-cycle  maintenance 
and  ownership  record  for  the  helicopter  shows  that  this  helicopter  was  retired  from  active 
status  in  late  1967.  A preliminary  visual  inspection  of  the  aircraft  indicated  that  the  primary 
structural  areas  of  its  airframe  were  in  good  shape.  The  aircraft  was  equipped  with  engines, 
transmissions,  stub  rotor  blades,  and  a noncrashworthy  fuel  system. 

The  test  article  included  the  following  (see  Reference  29  for  a detailed  description): 

29. Burro wi,  L.  T.,  Une.  Richard,  and  McElhenney,  James,  CH-47  CRASH  TEST  (T-40)  STRUCTURAL,  CARGO  RE- 
STRAINT, AND  AIRCREW  INFLATABLE  RESTRAINT  EXPERIMENT,  USARTL  Technical  Report  TR78-22,  Applied 
Technology  Laboratory,  U.S.  Army  Research  and  Development  Laboratories  (AVRADCOM),  Fort  Eustis.  Virginia,  1978, 
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a.  Cargo  experiments  in  the  center  section  fuselage  area  consisting  of  two  1 /4-ton 
trailers,  two  pallet  loads,  and  a baseline  cargo.  A conventional  restraint  system  was 
employed  for  one  trailer  and  one  pallet.  The  restraint  systems  for  the  other  pair  em- 
ployed improved  restraints  utilizing  load-limiting  energy  absorbers. 

b.  NADC  crew  restraint  experiments  in  the  cockpit,  with  each  seat  occupied  by  an 
anthropomorphic  dummy  representing  a 95th-percentile  naval  aviator. 

c.  Fuel  cells  were  filled  with  water  to  obtain  data  on  failure  modes  of  fuel  cells  and 
fuel  spray  pattern  during  crash  impact. 

d.  Sufficient  ballast  to  obtain  desired  CG  location  for  aircraft. 

e.  The  data  acquisition  system  included  125  channels  as  follows: 

• 62  accelerometers 

• 34  strain  gages 

• 8 tensiometers 

• 10  load  cells 

• 8 deflection  tubes 

• 3 pressure  transducers 

f.  Movie  coverage  of  the  internal  experiments  was  provided  by  two  movie  cameras  in 
the  cockpit  and  seven  in  the  cargo  compartment. 

In  addition,  motion  picture  coverage  of  the  test  was  provided  by  1 6 movie  cameras  located 
strategically  around  the  test  impact  area. 

Table  1 shows  the  estimated  weight  and  GG  positions  of  the  on-board  experiments.  The  loca- 
tions of  the  individual  experiments  in  the  aircraft  are  shown  in  Figure  3.  The  fully  configured 
test  article  gross  weight  was  25,01 0 pounds  with  its  nominal  center  of  gravity  at  fuselage  Station 
323.7.  The  pitch  moment  of  inertia  of  the  test  article  was  estimated  to  be  about  1.9  x 10^  lb  in.  sec^. 

4.3  CRASH  IMPACT  TEST 

The  fully  instrumented  CH-47A  helicopter  was  crash  impact  tested  under  the  direction  of  the 
Applied  Technology  Laboratory  (AVRADCOM)  and  NASA/Langley  Research  Center  on 
August  4,  1976.  The  test  was  carried  out  at  the  Impact  Dynamics  Research  Facility  NASA/LRC. 
The  test  number  was  T-40.  A detailed  description  of  the  test  facility  is  given  in  Reference  30. 

30.  Vaughn.  Victor  L,  Jr., and  AJfaro-Bou,  Emiiio,  IMPACT  DYNAMICS  RESEARCH  FACILITY  FOR  FULL-SCALE  AIR- 
CRAFT CRASH  TESTING,  NASA  TND8179,  National  Aeronautics  and  Space  Administration,  Langley  Research  Center, 
Hampton,  Virginia,  April  1976. 
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The  target  impact  conditions  representing  the  95th-percentile  potentially  survivable  helicopter 
crash  puke  were: 


Impact  Velocity 

Resultant  — 50  ft/sec 

Vertical  - 42  ft/sec 

Forward  — 27.1  ft/sec 

Lateral  - 0 ft/sec 

Aircraft  Attitude 

Pitch  — 5°  nose  down 

Yaw  - 0° 

Roll  - 0° 


Figure  13  shows  the  NASA/LRC  impact  test  facility  with  the  test  article  suspended  prior  to 
release.  Pyrotechnic  devices  were  used  to  initially  sever  the  drawback  cable  attachments  to  the 
helicopter,  permitting  it  to  swing  down,  pendulum  fashion,  to  impact  the  ground  at  the  desired 
contact  velocities  and  attitude.  The  swing  cable  attachments  were  severed  on  ground  contact, 
permitting  unrestrained  motion  of  the  helicopter  subsequent  to  impact. 

A series  of  still  photographs  taken  at  0.05-second  intervals  during  the  crash  sequence  is  shown 
in  Figure  14.  More  detailed  pictures  of  the  external  areas  of  the  aircraft  just  before  impact  and 
at  four  later  times  are  shown  in  Figures  1 5 through  1 9. 

4.4  OBSERVATIONS  AND  RESULTS 

Most  of  the  observations  made  during  and  following  the  crash  test  confirmed  predictions  with 
respect  to  gross  aircraft  behavior. 

Both  left  and  right  side  fuel  cells  burst  catastrophically  as  soon  as  ground  contact  of  the  fuel 
pod  area  occurred,  resulting  in  ‘fuel’  spray  enveloping  the  helicopter.  The  spray  pattern  can 
be  seen  initiating  in  Figure  17.  It  becomes  quickly  established.  In  an  actual  helicopter  crash, 
although  the  incident  may  be  classified  “survivable”  in  terms  of  impact  velocities  and  induced 
‘g’  levels,  this  fuel  spray  would  have  ignited  by  any  of  several  sources,  e.g.,  hot  engine  parts, 
electronic  equipment,  and  sparks  from  metal  shavings.  Even  if  the  basic  aircraft  structure  were 
able  to  attenuate  the  crash  pukes  to  within  human  tolerance  levels  and  prevent  serious  mechani- 
cal injury  to  the  occupants,  the  ensuing  fire  would  have  resulted  in  the  survivors  sustaining  ex- 
tensive thermal  injuries/fatalities.  Thk  test  graphically  demonstrates  the  pressing  need  for 
crashworthy  fuel  systems  in  aircraft  to  eliminate  the  threat  from  postcrash  fire  hazards. 
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Figure  16.  CH-47A  Crash  Test  .035  Second  After  Impact. 
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All  major  concentrated  mass  items  such  as  hubs,  shafting,  transmissions,  and  engines  main- 
tained their  structural  integrity  throughout  the  entire  crash  sequence.  It  is  worth  pointing  out 
here  that  the  support  structures  for  these  items  are  designed  to  provide  static  retention 
strength  for  crash  load  factors  of  8 ‘g’s  applied  independently  in  the  three  principal  directions. 
Both  aft  landing  gears  appeared  to  fail  almost  immediately  upon  ground  contact.  Later  exami- 
nation of  the  associated  aft  fuselage  area  showed  that  the  structural  torque  box  supporting  the 
landing  gear  and  the  oleo  attachments  had  failed.  The  aft  pylon  area  was  virtually  intact  and 
the  available  opening  at  the  aft  ramp  was  sufficient  to  permit  occupant  egress. 

The  test  article  was  carefully  inspected  after  the  impact  test  to  identify  structural  failures. 
Photographs  showing  failure  modes  at  significant  structural  areas  were  obtained.  The  results  of 
this  inspection  are  briefly  discussed  below. 

4.4.1  Review  of  Structural  Damage 

Figure  20  shows  the  right  side  of  the  forward  fuselage  and  cockpit  areas.  From  an  outward 
view  it  can  be  seen  that  most  of  the  damage  is  due  to  the  crushing  of  the  underfloor  structure. 
The  crown  and  side  skin  area  were  generally  undamaged  except  for  the  outward  buckling  of 
the  cockpit  door  coaming  members.  The  forward  pylon  area,  see  Figure  21,  was  virtually  un- 
damaged. Blade  damper  attach  lugs  on  one  pitch  housing  had  failed;  this  failure  was,  however, 
not  due  to  crash  loads  but  was  caused  by  one  of  the  swing  cables  snagging  the  stub  blade 
during  release  and  causing  an  overload  condition  for  the  damper  attachments.  The  extensive 
structural  damage  sustained  by  the  cockpit  floor  as  a result  of  crushing  can  be  seen  in  Figures 
22  and  23.  Both  pilot  and  copilot  seats  showed  failures  in  the  pan  attachment  areas  under  the 
crash-induced  vertical  loading.  The  CH-47A  seats  are  not  crash-force-attenuating  crew  seats. 
The  right  seat  back  upper  part  sustained  a torque-induced  shear  failure.  Also,  it  can  be  seen 
from  the  figures  that  the  shear  web,  F.S.  95  bulkhead  right  side  collapsed,  forming  a shelf 
5 inches  deep,  approximately  6 inches  below  the  kink  point.  It  is  believed  that  this  failure  was 
actually  caused  by  test  fixturing  and  as  such  not  pertinent.  As  noted  previously,  the  jettison- 
able  door  coaming  member  on  the  right  side  buckled  and  the  attached  skin  sheared  aft  at  its 
attachments  to  the  F.S.  95  bulkhead,  as  shown  in  Figure  24.  Some  damage  was  caused  to  the 
right  and  left  buttline  beams  and  control  closet  support  structure  adjacent  to  the  left  buttline 
beam,  as  shown  in  Figures  25  through  27.  There  was  some  evidence  to  indicate  that  the 
damage  was  caused  by  the  forward  trailer  (cargo  experiment)  impacting  this  structure  during 
the  crash  sequence,  causing  it  to  rotate  inward  and  forward. 

The  most  extensive  structural  damage  occurred  around  the  main  landing  gear  support  structure 
area,  fuselage  station  240.  General  external  views  of  damage  to  the  primary  structure  and  fuel 
pods  are  shown  in  Figures  28  through  30.  The  structural  failure  of  the  fuselage  side  panel  was 
predicted.  The  main  landing  gears  and  their  local  attachments  to  the  structure  between  F.S. 
240  and  F.S.  260  were  intact.  However,  the  lower  longeron/skin  panel  sections  which  trans- 
mit the  bending  loads  from  the  landing  gears  into  the  center  fuselage  area  had  failed  primarily 
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Figure  24.  CH-47A  Crash  Test  - Shear  Failure  of  Side  Skin,  Right  Cockpit. 


Figure  25.  CH-47A  Crash  Test  - Structural  Damage  - Right  Buttline  Beam. 
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Figure  26.  CH-47A  Crash  Test  Damage  to  Frame  1 20  and  B.L.  18  Beam  Due  to 
Impact  by  Forward  Trailer  Experiment. 


Figure  28.  CH-47A  Crash  Test  - General  View  of  External  Damage  to  the  Center 
Fuselage  Right  Side. 


Figure  29.  CH-47A  Crash  Test  - Side  Skin  Panel  Rupture  and  Shear  Failures, 
F.S.  240,  Right  Side. 
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in  a shear  mode  as  shown  in  Figures  31  through  33.  These  failures,  coupled  with  the  failure  of 
the  floor  frame  corner  joint  area  (Figure  23),  permitted  the  landing  gears  to  rotate  into  the 
main  fuel  pods.  Figures  34  through  36  show  the  magnesium  floor  panels  at  F.S.  240  failing  in 
primary  longitudinal  tension  under  the  combined  effects  of  floor  frame  failures  and  rotation 
and  rupture  of  the  lower  half  of  the  structural  shell  between  the  landing  gear  support  frames. 
The  side  frame  joint  to  the  crown  at  Station  200  failure  forced  by  side  panel  buckling  and 
ruptures  aft  of  Station  240  are  shown  in  Figures  37  and  38.  Figures  39  through  42  show 
general  views  of  the  cabin  interior  structure  up  to  Station  440.  This  area  suffered  very  minor 
damage  caused  mainly  by  the  intrusion  of  the  floor  into  the  cabin  area  due  to  floor  frame 
corner  joint  failures.  The  crown  structure  aft  of  Station  280  was  virtually  undamaged,  as  were 
the  magnesium  floor  panels.  This  is  understandable  as,  in  general,  the  only  external  loads 
which  the  crown  structure  generally  sees  during  the  impact  are  due  to  the  inertia  from  the 
local  structural  mass.  This  mass  is  very  small  compared  to  the  aircraft  mass  distribution. 

External  views  of  the  aft  fuselage  structure  are  shown  in  Figures  43  and  44.  The  basic  struc- 
ture in  the  aft  pylon  area  showed  almost  no  damage  except  for  local  skin  wrinkling  and  some 
deformation  in  the  aft  fairing  area.  As  noted  earlier,  the  aft  landing  gears  failed  prematurely, 
causing  the  ramp  structure  to  impact  the  ground.  This  resulted  in  local  damage  to  the  open 
frames  aft  of  F.S.  482.  In  spite  of  this,  over-the-ramp  clearance  was  more  than  adequate  for 
occupant  egress  (see  Figures  39  and  43).  The  aft  landing  gear  failures  resulted  in  extensive 
structural  damage  to  the  landing  gear  support  structure  (torque  box)  and  fairings.  Details  of 
this  damage  are  shown  in  Figures  45  through  47.  Based  on  examination  of  the  test  aircraft  and 
evaluation  of  the  pictures,  it  appears  that  the  outboard  edge  member  attachment  hole  areas  at 
Station  482  failed  initially,  allowing  the  bulkhead  web  to  rack  about  the  inboard  cap  edge  and 
causing  a tearing  type  failure  of  the  entire  web  (see  Figure  45).  This  destroyed  the  bulkhead’s 
capability  to  resist  pitching  moments  and  allowed  the  gear  unit  to  rotate  about  the  upper  shock 
strut  attach  point  without  the  landing  gears’  developing  a significant  load  on  ground  contact. 
Consequently,  Station  482  bottom  fuselage  area  contacted  the  ground,  producing  very  high 
forces  and  causing  the  secondary  damage  seen  on  the  torque  box/fairing  area  in  the  figures. 

In  general,  the  failures  in  the  support  areas  on  both  right  and  left  sides  were  very  similar.  Both 
analysis  and  prior  test  data  show  that  the  weak  links  in  the  aft  landing  gear  structure  are  the 
shock  strut  upper  cover  and  lug  areas.  It  is  suspected  that  the  failures  in  this  crash  test  may 
have  resulted  from  structural  weaknesses  introduced  into  the  test  aircraft  after  its  retirement 
from  active  fleet. 

The  internal  structure  of  the  aft  pylon  showed  no  significant  damage  as  a result  of  the  crash 
impact  (see  Figures  48  and  49).  The  right  engine  installation  in  Figure  50  shows  that  the  en- 
gine aft  support  mount  pad  area  had  failed  in  tension. 


To  summarize,  gross  failure  mechanisms,  except  at  the  aft  landing  gear,  were  as  predicted.  The 
most  severe  structural  damage  was  found  in  two  areas,  namely  the  center  fuselage  between 
Stations  200  and  280  and  the  cockpit/nose  section.  The  primary  damage  was  confined  to  the 
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Figure  32.  CH-47A  Crash  Test  — View  Showing  Lower  Fuselage  Rupture  in 
the  Main  Landing  Gear  Support  Area. 


CH-47A  Crash  Test  - 
Floor  Frame  and  Floor 
Failure  Details,  F.S. 
260  Area. 


CH-47  A Crash  Test  Separation 
of  Floor  and  Fuselage  Shell  on 
Right  Side  Between  F.S.  240 
and  300. 


Figure  35.  CH-47  A Crash  Test  - Floor  Panel  Failures  Between  Fuselage  Stations  180  and  280, 


Figure  36.  CH-47A  Crash  Test  - Damage  to  Floor  in  Area  of  Main  Landing  Gear 
(View  Looking  Forward). 


Figure  37.  CH-47A  Crash  Test  Damage 
to  Frames,  Skins,  and 
Longerons  on  Right  Side 
Aft  of  Station  180. 


Figure  46.  CH-47A  Crash  Test  - Details  of  Torque  Box  Structural  Failures  at  F.S.  482. 
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Figure  47.  CH-47A  Crash  Test  - View  Looking  Down  at  the  Aft  Landing  Gear 
Support  Structure  Area. 


CH-47A  Crash  Test  - Interior 
View  of  Right  Side  of  Aft 
Fuselage  Internal  Structure 
and  Ramp. 


CH-47A  Crash  Test  - No  Damage  to  Primary  Structure  in  Aft  Pylon 
Splice  Area  F.S.  534,  Below  W.L.  72. 


Figure  50.  CH-47A  Crash  Test  — Failure  of  Aft  Mount  Pad  Right  Engine  Installation. 
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bottom  fuselage  area  and,  in  the  center  fuselage  area,  the  damage  resulted  in  intrusive  failure  of 
the  floor  panels.  In  the  rest  of  the  cargo  compartment  structural  damage  was  extremely  limited. 
The  structural  failures  aft  of  Station  280  indicated  no  potential  for  mechanically  induced  in- 
juries to  surviving  occupants.  Residual  cabin  height  measurements  indicated  acceptable  reduc- 
tions in  inhabitable  volume  and  indicated  that  occupants  in  these  areas,  if  seated  in  crashworthy 
seats  and  properly  restrained,  would  have  a high  probability  of  survival.  Further,  egress  of  the 
survivors  by  the  main  cabin  doors  and  over  the  ramp  area  was  possible. 

4.5  TEST  DATA  ANALYSIS 

Motion  picture  and  raw  instrumentation  data  were  reviewed  to  provide  preliminary  information 
regarding  impact  conditions,  aircraft  states,  and  approximate  maximum  acceleration  levels.  The 
data  acquisition  system  performed  excellently.  The  instrumentation  failure  rate  was  very  low. 
Data  from  a few  channels  were  lost  as  a result  of  wire  severance  or  local  damage  during  impact. 
Both  pressure  transducers  in  the  fuel  cells  were  lost  immediately  after  impact  due  to  main  land- 
ing gears  rotating  into  them.  The  test  results  indicated  that  the  static  crash  load  factors  used 
in  the  design  of  the  retention  structure  for  major  mass  items  provide  adequate  strength  for  the 
loads  induced  during  a 95th-percentile  survivable  crash  impact. 

The  data  indicated  that,  at  the  time  of  the  aft  landing  gear  failure,  the  accelerations  and  loads 
in  the  landing  gear  and  its  support  structural  areas  were  well  below  design  structural  strengths. 
These  design  strength  levels  have  been  substantiated  during  both  qualification  testing  and  sub- 
sequent structural  flight  tests.  At  this  time,  the  failed  areas  were  reexamined.  It  was  found 
that  the  torque  box  structural  attachments  at  the  aft  bulkhead  had  failed  in  shear  and  the  upper 
airframe  fitting  for  oleo  attachment  had  failed  under  the  combined  action  of  lateral  loading 
and  torsion.  However,  the  fitting  failure  is  suspected  to  have  occurred  during  the  removal  of 
the  crash  test  wreckage  from  the  test  site.  (See  Figure  47,  which  shows  no  failure  in  this  area.) 

Table  4 provides  an  event  summary  obtained  from  a frame-by-frame  analysis  of  the  motion 
picture  data  showing  the  time  after  impact  for  primary  ground  contacts  and  structural  failures. 

The  raw  data  acquired  during  the  test  was  filtered  through  a 100-Hz  low-pass  digital  filter  and 
further  processed  to  obtain  accelerations,  velocities,  displacements,  stress,  and  loads  at  the  gage 
locations.  The  filtered  data  set  is  included  for  reference  purposes  in  Appendix  C.  The  approxi- 
mate values  for  peak  ‘g’  levels  and  associated  pulse  duration  for  selected  locations  are  given  in 
Table  5.  These  values  can  be  used  for  crash  impact  analyses. 

4.6  DETERMINATION  OF  IMPACT  CONDITIONS 

Several  alternative  approaches  had  to  be  used  to  define  the  velocities  and  attitude  at  impact  of 
the  test  aircraft.  These  included  analyses  of  motion  picture  data  and  radar  data. 
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TABLE  4.  CH-47A  CRASH  TEST  - SUMMARY  OF  PRINCIPAL 
EVENTS  FROM  FILM  ANALYSIS 


Time 

After 

Impact 

(seconds) 

Event 

0.00 

Forward  landing  gear  impact 

0.025 

Fuselage  nose  section  contact 

0.035 

Fuselage  ground  contact  up  to  F.S.  120 

0.040 

Side  skin  F.S.  240-280  begins  to  buckle 

0.050 

Center  window  area  F.S  260  distorted 

0.060 

Side  skin  F.S.  240-280  deeply  buckled  with 
buckles  extending  below  W.L.  0 

0.070 

Underfloor  structure  in  cockpit  area  crushed 

Side  skin  buckled  up  to  F.S.  160 

Main  landing  gear  attachment  failed 

Structure  above  windows  considerably  deformed 

0.080 

Fuselage  shell  ruptures  diagonally  on  left  side 

F.S.  200-280 

0.085 

Aft  landing  gear  impact 

0.090 

Fuselage/ground  contact  up  to  F.S.  280 

Floor  crushed  to  F.S.  260 

Tunnel  covers  fuselage  crew  area  separates 
to  F.S.  280 

0.0975 

Fuselage/ground  contact  up  to  F.S.  320 

0.110 

Skin  buckled  across  F.S.  320 

1 


i 


0.1225 


Total  failure  aft  landing  gear 
Fuselage/ground  contact  up  to  F.S.  482 


J 
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At  Boeing  Vertol,  the  high-speed  movies  were  used  for  this  purpose.  Individual  frames  were 
projected  using  a time  and  motion  analysis  projector.  Selected  points  on  the  aircraft  and  ground 
reference  points  were  mapped  for  each  frame.  Approximately  4,000  points  were  thus  obtained. 
Time  relationships  were  established  from  the  filming  speed  of  400  frames  per  second  and  frame 
count.  From  this  data,  it  was  possible  to  calculate  relative  displacements,  velocities,  and  accel- 
erations at  the  selected  points  on  the  aircraft.  This  required  a horrendous  amount  of  data  pro- 
cessing. In  order  to  reduce  the  effort  required  to  reduce  this  data,  several  computer  programs 
were  written  to  first  calculate  the  displacements  of  the  points  on  the  aircraft  with  respect  to 
ground  and  then,  using  an  8th-order  polynomial  regression  analysis  routine,  establish  the  coef- 
ficients for  the  vertical  and  horizontal  displacement  curves.  The  first  and  second  derivatives  of 
the  displacement  curves  established  the  velocities  and  accelerations.  This  data  was  used  to  esti- 
mate the  actual  impact  conditions. 

The  estimates  together  with  results  of  similar  analyses,  radar  data,  and  motion  synthesizer 
studies  by  the  Applied  Technology  Laboratory  and  NASA/LRC  were  utilized  to  define  the 
actual  test  impact  conditions  shown  in  Table  6. 

TABLE  6.  CH-47A  CRASH  TEST  IMPACT  CONDITIONS 


Item 

Planned 

Actual* 

Gross  Weight  (lb) 

24,300 

25,010 

CG  (fuselage  station) 

328.5 

323.7 

Contact  Velocity  (fps) 

Vertical 

42 

43.5 

Longitudinal 

27.1 

28.3 

Lateral 

0 

0 

Resultant 

50 

51.25 

Attitude  (deg) 

Roll 

0 

0 

Pitch  (nose  down) 

5 

8.7 

Yaw 

0 

0 

*Test  impact  velocities  and  attitude 

are  based  on  motion  analyses 

and  radar  data. 

5.0  TEST  SIMULATION  AND  MODEL  IMPROVEMENTS 


5.1  REVIEW  OF  PRETEST  PREDICTIONS 

Following  the  crash  test,  the  CH-47A  KRASH  model  was  resimulated  for  the  target  impact  con- 
ditions using  a constant  iteration  interval.  Predicted  vertical  and  longitudinal  accelerations  for 
25  masses,  located  on  the  centerline  and  on  the  left  side  of  the  model,  were  filtered  using  the 
100-Hz  low-pass  digital  filter.  The  time  histories  for  these  accelerations  are  included  in  Appen- 
dix B. 

Although  the  impact  conditions  used  for  the  simulation  differed  from  the  actual  test  condi- 
tions to  some  degree,  it  is  considered  that  the  dynamic  responses  should  be  comparable.  Hence, 
in  order  to  identify  model  improvements  prior  to  detailed  test  simulation,  correlation  studies 
were  performed. 

The  studies  indicated: 

• Fair  agreement  in  occurrences  of  ground  contact  and  major  structural  states.  Figure 
51  shows  this  comparison  between  actual  and  predicted  data  in  the  form  of  an  event 
summary. 

• Predicted  accelerations  and  displacements  correlate  poorly  with  the  corresponding 
data  from  the  test. 

5.2  TEST  SIMULATION 

5.2.1  Updated  Model  and  Simulation 

Based  on  the  review  of  the  pretest  predictions  and  test  data,  the  CH-47A  (KRASH)  model  was 
modified  as  follows: 

• The  mass  distribution  was  revised  to  reflect  the  final  gross  weight  and  c.g.  position 
of  the  test  article. 

• The  ground  friction  factors  at  the  ground  springs  representing  landing  gears  and 
fuselage  underbody  were  decreased  to  better  approximate  friction  effects  of  the 
concrete  test  impact  area. 

• The  aft  landing  gear  area  stiffness  and  strength  factors  were  adjusted  to  account  for 
test  failure  modes. 
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FILM  ANALYSIS 


FORWARD  LANDING  GEAR  IMPACT 


TIME  AFTER 
IMPACT  (SECI 


FUSELAGE  NOSE  SECTION  CONTACT 


FUSELAGE  GROUND  CONTACT  UP  TO  F S 120 


SiOe  SKIN  F.S.  240-280  BEGINS  TO  BUCKLE 


CENTER  WINDOW  AREA  F.S.  260  DISTORTED 


SIL  F SKIN  F.S.  240-280  DEEPLY  BUCKLED  WITH 
BUCKLES  EXTENDING  BELOW  W.L.  0 


UNDERFLOOR  STRUCTURE  IN  COCKPIT  AREA  CRUSHED 
SIDE  SKIN  BUCKLED  UP  TO  F.S.  160 
MAIN  LANDING  GEAR  ATTACHMENT  FAILED 
STRUCTURE  ABOVE  WINOOWS  CONSIDERABLY  DEFORMED 


FUSELAGE  SHELL  RUPTURES  DIAGONALLY  ON  LEFT 
SIDE  F.S.  200-280 

AFT  LANDING  GEAR  IMPACT 


FUSELAGE/GROUND  CONTACT  UP  TO  F.S.  320 


SKIN  BUCKLED  ACROSS  F.S.  320 


TOTAL  FAILURE  AFT  LANDING  GEAR 
FUSELAGE/GROUND  CONTACT  UP  TO  F.S.  482 


PRETEST  PREDICTIONS 


MAIN  LANDING  GEAR  IMPACT 


EXTERNAL  SPRINGS  AT  3.  4.  AND  5 
CONTACT  GROUND,  FOLLOWED  BY 
FORWARD  FUSELAGE  UNDER 
FLOOR  STRUCTURE  CRUSH 


ELEMENT  10-11  RUPTURE 
. ELEMENT  8-10  RUPTURE 
/ (FLOOR  BEAM,  ST  A.  240) 

LOWER  SKIN  ANO  LONGERONS 
AFT  OF  STA.  240.  ELEMENTS 
8-16.  11-18  RUPTURE 

DIAGONALS  AFT  OF  STA.  240  RUPTURE 


AFT  LANDING  GEAR 
GROUND  CONTACT 


UPPER  LONGERON  ELEMENT 
AFT  OF  STA.  240  RUPTURE 


CENTER  FUSELAGE  BOTTOM 
AT  STA.  380  CONTACT 


Figure  SI . Event  Chronology  of  Pretest  Model  of  CH-47A  Crash  Test  Simulation. 
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• Some  minor  changes  in  definition  of  one-sided  elements  were  made  in  the  model. 

• Initial  conditions  for  simulation  were  redefined  to  reflect  actual  test  impact 
conditions. 

Additional  runs  were  conducted  using  the  S-79  computer  program.  This  permitted  more  mean- 
ingful correlation  of  data  and  evaluation  of  KRASH  program  logic  as  well  as  modeling  deficien- 
cies since  both  predictions  and  test  data  would  be  based  on  the  same  initial  conditions. 

Several  of  the  problems  in  program  logic  identified  during  these  studies  were: 

• The  total  energy  was  not  constant  within  acceptable  limits.  This  indicated  that  the 
solution  process  was  unstable  and  energy  was  being  pumped  into  the  system. 

• The  KRASH  predictions  were  extremely  unsymmetric.  This  included  unsymmetric 
deflections  of  corresponding  points  on  opposite  sides  of  the  airframe.  The  model 
also  developed  a small  lateral  velocity  (i.e.,  drifting  to  one  side). 

• The  forward  velocity,  instead  of  decaying  monotonically  to  zero,  reversed  and  in- 
creased in  the  rearward  direction. 

• The  model  exhibited  a skating  phenomenon  subsequent  to  initial  rebound. 

5-2-2  Discussion  of  Program-Related  Problems 

The  first  of  the  above  problems  is  discussed  in  detail  in  Section  3.4. 

In  an  effort  to  solve  the- second  and  third  problems,  which  are  related,  several  detailed  investi- 
gations were  initiated.  The  first  involved  a simple,  fully  symmetric,  four-prong  model  in  the 
orm  ot  a + with  a mass  and  ground  spring  at  the  extremity  of  each  arm  and  a mass  at  the  cen- 
ter (see  Figure  52).  This  model  was  used  to  simulate  a vertical  lg  impact.  The  KRASH  code 
predicted  that  the  model  would  rebound  upward  well  above  the  initial  release  point  while 
drifting  to  one  side,  and  subsequently  flip  over.  This  result  is  in  violation  of  all  known  physical 
principles.  Further,  the  predictions  varied  with  model  azimuth  orientation  and/or  nodal 
numbering  sequence.  A detailed  analysis  of  the  logic  blocks  in  DERIV  subroutine  of  KRASH 
i entitled  the  source  of  the  problems  to  be  incorrect  beam  element  force  and  moment  relation- 
ships and  errors  in  the  derivation  of  mass  accelerations  in  the  moving  system. 

n:\Uftdr:eCti°nS  Were  incorP°rated  into  KRASH  (S-79)  in  a parallel  effort  under  Contract 

AAJ02-75-C0014.  The  corrected  program  is  identified  as  S-79  TEMX.  Details  are  reported 

in  Reference  3.  r 
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The  next  problem  investigated  was  the  skating  phenomenon.  The  term  skating  is  applied  here 
to  describe  the  analytical  phenomenon  that  occurs  in  KRASH  after  a structural  model  rebounds 
on  its  external  (ground)  springs.  As  a ground  spring  extends  during  the  initial  rebound,  the 
spring  unloads  rapidly  to  zero.  The  spring  loads  stay  at  a zero  value  as  the  spring  continues  to 
extend.  Thus,  for  a significant  length  of  time,  i.e.,  until  the  next  reloading  cycle  compresses 
the  external  spring  beyond  the  deflection  at  which  the  previous  rebound  occurred,  no  external 
forces  are  input  from  this  spring  to  the  model.  As,  in  the  model,  several  external  springs  experi- 
ence this  condition  concurrently,  it  skates  during  this  time.  The  model  velocities  stay  essen- 
tially constant  except  for  the  effect  of  gravitational  acceleration  on  the  vertical  velocity.  This 
phenomenon  is  illustrated  in  Figure  53.  During  the  initial  power  stroke  of  the  external  spring 
representing  the  main  landing  gear  and  the  forward  fuselage  crushable  underfloor  structure,  the 
vertical  velocity  at  the  model  center  of  gravity  decreases  rapidly.  However,  as  each  of  these 
springs  unloads  as  the  forward  fuselage  section  rebounds,  the  rate  of  deceleration  of  c.g.  velocity 
decreases.  Finally,  as  the  spring  at  node  3 unloads  fully,  the  velocity  is  seen  to  stay  virtually 
constant  from  about  t = 0.07  second  to  t = 0.12  second  when  the  ‘main  landing  gear’  spring 
starts  to  reload.  Also,  the  vehicle  energy  showed  rapid  and  fairly  large  changes  during  these 
unload-reload  intervals. 

A careful  analysis  of  the  methodology  employed  in  KRASH  for  calculating  external  spring 
loads  showed  that  this  element  can  be  useful  for  representing  crushable  structure  provided  that, 
in  the  impact  dynamics  of  the  aircraft  modeled,  almost  all  the  crash  impact  energy  is  absorbed 
during  the  first  power  stroke.  Representation  of  an  oleo  landing  gear  behavior  is  beyond  its 
capability. 

Figure  54  shows  a typical  load-deflection  characteristic  for  an  external  spring  used  in  the 
KRASH  model.  To  demonstrate  the  basic  problem  in  the  program  logic,  see  Figure  55,  two 
very  similar  cases  will  be  considered.  The  first  case  displayed  in  Figure  56  represents  a spring 
deflecting  monotonically  from  zero  to  ‘S’.  The  external  spring  forces  then  correspond  to  the 
point  ‘g’  on  the  Ke  portion  of  the  characteristic.  The  second  case  illustrated  in  Figure  57 
represents  a spring  deflecting  an  arbitrary  amount  less  than  Sg,  at  which  time  a small  deflection 
reversal  is  assumed  to  occur.  Following  the  reversal,  the  spring  is  deflected  monotonically  to 
the  point  ‘S’.  The  final  spring  force  is  the  same  for  both  cases  being  considered.  The  shaded 
areas  under  the  respective  curves  represent  the  energy  inputs  from  the  two  cases  into  the  sys- 
tem. It  is  readily  seen  that  the  energy  in  the  two  cases  is  radically  different,  although  in 
actual  practice  the  two  would  be  almost  identical. 

A more  detailed,  step-by-step  examination  of  the  deflection  curve  for  the  second  case  helps  to 
explain  the  error  in  the  algorithm  used  for  ground  springs  in  the  KRASH  code.  Again  referring 
to  Figure  57,  as  the  spring  deflection  increases,  the  load  is  increased  along  the  curve  a-b-c-d,  at 
which  time  the  spring  starts  unloading.  Using  the  algorithm  shown  in  Figure  55,  the  program 
calculates  the  spring  load  going  to  zero  along  d-h  with  a slope  equal  to  Ke  and  then  continues 
along  h-a.  On  the  next  loading  cycle,  the  spring  load  is  maintained  at  zero  until  point  h. 
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VERTICAL  VELOCITY 


CH-47A  Crash  Test  Simulation  Showing  Skating  Phenomenon  and  Horizontal 
Velocity  Reversal. 
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Further  spring  deflection  causes  loads  to  be  calculated  along  the  original  ground  spring  curve 
a-b-c-d  transposed  to  a new  origin  at  point  ‘h’.  This  is  shown  by  the  curve  h-i-j-k-f-g.  In  real 
frangible  structure,  reloading  should  be  along  a-h-d-e,  etc.  This  results  in  improper  loads  and 
energy  being  computed.  It  is  also  of  interest  to  note  that  during  a rebound  prior  to  the  bottom- 
ing spring  being  hit,  load  increases  parallel  to  the  initial  shape  of  the  ground  spring  curve  and 
decreases  parallel  to  the  Ke  slope.  Thus,  in  the  case  of  multiple  rebounds  with  deflections  less 
than  Sp,  the  loads  and  energies  computed  would  be  a very  small  fraction  of  the  capability 
available  from  the  crushable  structure. 

It  is  apparent  from  the  above  discussion  that  several  corrections  have  to  be  incorporated  into 
the  external  spring  load  calculation  methodology  for  it  to  properly  represent  crushable  struc- 
ture behavior.  Representation  of  oleo  strut  behavior  is  a far  more  complex  issue,  as  velocity 
squared  damping  and  recoil  characteristics  have  to  be  considered.  Program  improvements  of 
this  nature,  however,  were  beyond  the  scope  of  this  effort.  The  modifications  attempted  in 
the  modeling  of  the  aircraft  to  overcome  the  limitations  imposed  by  these  problems  are  dis- 
cussed in  the  next  section. 

5.2.3  Modified  Model 

Because  of  the  inability  of  the  KRASH  program  to  represent  typical  oleo/strut-type  aircraft 
landing  gear  configurations,  it  was  necessary  to  use  two  external  springs,  masses  and  beam 
elements  connected  to  each  main  landing  gear  location  to  approximately  represent  the  esti- 
mated oleo  strut/tire  characteristic  under  impact  conditions.  Representation  of  the  tire  be- 
havior was  provided  by  the  first  spring/beam  pair,  and  the  second  crudely  represented  the  oleo 
system  behavior  during  initial  stroking.  The  spring  and  beam  pair  representing  the  pneumatic 
tire  permitted  a representation  of  an  initial  load  impulse  followed  by  sudden  loss  of  load  (tire 
bursting).  After  a further  short  drop,  the  second  ground  spring  contacts  the  ground  plane  and 
reintroduces  loads  through  the  simulated  landing  gear  beam.  This  second  beam  element  was 
used  to  represent  the  remaining  structural  stiffnesses  between  the  ground  and  the  main  airframe 
components.  The  effective  mass  of  the  landing  gear  was  apportioned  between  the  two  masses. 
The  external  spring  properties  were  adjusted  to  maintain  equivalence  in  terms  of  energy  ab- 
sorption over  the  full  landing  gear  stroke.  However,  in  order  to  ensure  the  springs  stroking 
without  rebound  during  the  real  power  stroke,  the  load-stroke  relationship  had  to  be  compro- 
mised such  that  the  springs  are  essentially  soft.  This  reduces  the  magnitude  and  rate  of  loads 
induced  into  the  aircraft  during  impact.  Also,  the  accelerations  obtained  at  the  two  masses 
are  not  directly  meaningful.  The  analytical  data  will  have  to  be  adjusted  by  manually  recom- 
puting the  acceleration  at  the  landing  gear  location  by  combining  the  inertial  forces  from 
several  masses.  It  should  be  recor^iized  that  this  is  only  a make-shift  idealization  of  the  landing 
gear  and  will  not  provide  for  accurate  simulation  of  local  response. 


Secondly,  as  noted  previously  the  structural  failure  in  the  crash  test  of  both  aft  landing  gears 
at  almost  the  instant  of  aft  gear  contact  was  inexplicable.  Because  of  this  abrupt  failure,  a 
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sophisticated  model  of  the  aft  gear  was  not  attempted.  In  order  to  represent  this  failure  in  the 
model  simulation,  it  was  necessary  to  arbitrarily  reduce  axial,  torsional,  and  bending  stiffnesses 
of  the  elements  representing  the  aft  landing  gear  and  to  significantly  reduce  the  rupture  criteria 
for  these  elements. 

The  above  modifications  necessitate  several  changes  in  the  basic  model  in  order  to  stay  within 
program  constraints.  The  modified  model  contained  37  mass  points,  63  beam  elements,  and 
32  axial  and  one-sided  elements.  Six  ground  springs  were  used  to  represent  the  landing  gears 
with  an  additional  1 2 ground  springs  being  used  to  simulate  the  frangible  underfloor  structure. 

Figures  58  through  60  are  schematics  of  this  modified  model.  The  model  mass  properties  are 
shown  in  Table  7. 

Several  iterations  on  S-79  were  required  before  the  load  deflection  characteristics  of  the  ex- 
ternal springs  and  beams  representing  the  main  landing  gears  were  dynamically  acceptable. 

5.2.4  Simulation  Studies 


The  model  described  above  required  several  adjustments,  particularly  in  regard  to  beam  element 
KR  factors  and  rupture  criteria.  These  adjustments  are  required  as  the  interaction  between  the 
stiffness  matrix  elements,  and  the  associated  KR  factor  tables  depend  upon  independently  de- 
rived deflections  of  a beam.  Thus,  changes  in  the  rates  of  load  introduction,  model  geometry, 
or  mechanical  relationships  in  the  forces  and  moments  applied  to  the  nodal  masses  affect  the 
direction  in  which  the  beam  enters  a plastic  state.  As  this  situation  may  result  in  beam  forces 
being  computed  in  the  plastic  region  for  one  component  while  the  other  components  are  being 
computed  in  the  elastic  region,  incompatible  forces  and  moments  are  generated.  Under  these 
conditions,  a negative  strain  energy  may  also  be  computed  for  the  beam.  Six  additional  com- 
puter runs  were  required  to  arrive  at  mutually  compatible  beam  element  stiffness,  stiffness 
reduction  factors,  and  rupture  criteria  which  minimized  these  problems.  The  final  run,  number 
1013JD,  provided  a reasonably  acceptable  simulation  of  the  CH-47A  impact  dynamics  in  terms 
of  principal  impact  and  external  structural  rupture  sequence  when  compared  with  test  film 
analysis  data. 


A detailed  review  of  the  dynamic  response  data  from  this  simulation  indicated  that  several 
problems  still  existed,  namely  development  of  an  approximately  3-foot-per-second  lateral  drift 
velocity,  lack  of  symmetry,  and  reversal  of  forward  velocity.  By  this  time,  a version  of 
KRASH  entitled  S-79  TEMX  incorporating  corrected  equations  of  motion  (see  paragraph 
5.2.2)  was  available.  S-79  TEMX  had  been  validated  against  the  cruciform  model,  Figure  52, 
and  results  from  Test  No.  3 of  Reference  3.  It  was  considered  possible  that  a more  acceptable 
simulation  may  be  obtained  by  using  this  program.  The  results  from  attempts  to  do  so  were 
extremely  disappointing.  A detail  discussion  follows. 


mm 
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Figure  59.  CH-47A  Modified  Model  - One-Sided  Elements  Representing  Skins 


TABLE  7.  MODIFIED  CH-47A  KRASH  MODEL  MASS  PROPERTIES 
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The  CH-47A  (KRASH)  model,  Figure  58,  was  simulated  on  S-79  TEMX  for  the  test  impact 
conditions.  The  simulation  results  indicated  a severe  energy  ‘blow-up’  and  instability  of  the 
solution  process  after  about  0.06  second.  The  vehicle  total  energy  increased  almost  exponential- 
ly and  had  grown  by  several  orders  of  magnitude  at  0.2  second.  A detailed  analysis  indicated 
a divergent  lateral  oscillation  of  mass  1.  The  divergence  was  so  rapid  that  this  mass  literally 
rolled  over  into  the  ground,  developing  extremely  large  kinetic  as  well  as  negative  potential 
energies.  This  instability  was  seen  to  be  affecting  the  responses  of  masses  2 and  3 as  well.  Also, 
the  external  springs  at  3,  4,  and  5 stroked  well  beyond  their  limits,  indicating  a total  breakdown 
in  the  solution  process.  In  an  attempt  to  determine  possible  sources  for  this  problem,  several 
additional  computer  runs  were  made  while  varying  the  following  parameters: 

• Integration  error  controls 

• Minimum  time  step  for  integration 

• Structural  damping 

None  of  the  changes  had  any  noticeable  effect  on  either  the  onset  or  severity  of  the  divergence. 
Also,  a run  with  mass  1 effectively  decoupled  from  the  model  showed  that  masses  2 and  3 
exhibited  the  same  type  of  divergence.  Finally,  to  determine  whether  the  problem  was  in  any 
way  associated  with  the  yielding  of  major  structural  elements,  the  KR  tables  were  eliminated 
from  the  input  and  the  model  simulated  on  both  S-7900  and  S-79  TEMX.  The  raw  data  for 
several  significant  parameters  obtained  from  these  two  runs  are  shown  in  Figures  61  through 
66. 


A detailed  review  of  the  data  shown  led  to  the  following  conclusions: 

• No  significant  difference  exists  between  the  two  simulations  up  to  0.04  to  0.05 
second  after  impact. 

• The  model  when  simulated  on  S-79  TEMX  exhibits  a high  degree  of  instability, 
invalidating  the  results  beyond  about  0.06  second  or  1,000  iterations. 

• This  divergence  does  not  appear  to  be  directly  related  to  model  structural  charac- 
teristics including  effects  of  plasticity  and  damping,  element  ruptures,  external 
spring  characteristics,  or  user-specified  integration  control  data. 

• Based  on  the  above,  it  was  concluded  that  S-79  TEMX  will  not  permit  an  acceptable 
simulation  of  the  crash  impact  characteristics  of  the  CH-47A  KRASH  model. 

It  was,  therefore,  decided  that  the  dynamic  response  of  the  model  obtained  from  S-7900  simu- 
lation, run  1013JD,  shall  be  correlated  with  the  CH-47A  crash  test  data.  The  details  of  these 
correlation  studies  are  given  in  the  next  section. 
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Figure  61.  Model  Total  Energy  Divergence,  S-79  TEMX  Simulation 
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A listing  of  the  computer  program  S-7900  is  included  in  Appendix  E.  The  input  data  for  run 
1013JD  and  output  results  at  time  = 0 and  at  time  = 0.104  second  after  impact  are  available 
for  reference  in  Appendix  F. 


6.0  CORRELATIONS 


6.1  OVERALL  RESPONSE 

The  predicted  total  energy  of  the  CH-47A  K.RASH  model  is  shown  plotted  against  time  in 
Figure  67.  Also  shown  are  the  contributions  from  vehicle  kinetic  and  potential  energy  as  well 
as  strain,  damping,  and  crush  energies.  The  change  in  total  energy  over  the  solution  time  of 
0.180  second  is  less  than  4%.  This  represents  over  4,000  iterations  and  compares  well  with  a 
change  of  7.2%  obtained  during  the  pretest  simulation  (see  Section  3.4).  The  largest  single 
source  of  energy  decay  is  from  crush  elements  which  account  for  approximately  75%  of  the 
decay  in  the  vehicle  kinetic  and  potential  energy  over  0.15  second.  A time  history  of  the  pre- 
dicted c.g.  velocities  is  shown  in  Figure  68.  These  velocities  are  obtained  in  the  computer 
program  by  dividing  the  sum  of  linear  momentums  in  each  translational  direction  by  the  total 
mass  and,  as  such,  they  represent  only  an  approximation.  Also,  as  the  vehicle  kinetic  energy 
shown  includes  translational,  rotational,  and  oscillatory  contributions,  these  data  cannot  be 
correlated  against  film  analysis  data. 

Figure  69  illustrates  the  model  connectivity  at  progressive  stages  of  the  simulation.  For  pur- 
poses of  clarity,  the  sketches  include  beam  elements  only,  and  ruptures  are  indicated  by  re- 
moval of  the  corresponding  element.  Further,  no  attempt  has  been  made  to  show  relative 
displacements  of  nodal  points  or  ground  contact  sequence.  An  event  summary  comparing  the 
test  article  and  the  math  model  simulation  data  is  furnished  in  Figure  70.  This  provides  a 
gross  comparison  of  the  dynamic  response  in  terms  of  times  at  ground  spring  contacts  and 
element  ruptures.  Several  comments  are  necessary  to  supply  background  information  on 
possible  inaccuracies  in  indicated  times.  For  the  test  article,  the  indicated  times  are  from  high- 
speed film  analysis.  In  general,  these  are  very  close  to  actual  times  but  inaccuracies  exist.  Be- 
cause of  camera  angle,  lighting  conditions  and  film  resolution,  it  was  not  always  possible  to 
view  the  bottom  fuselage  area  to  determine  the  precise  instant  of  contact.  This  necessitated 
several  viewings  of  the  film.  It  was  noticed  that  individual  frames  in  the  Film  warped  slightly 
during  successive  projections,  resulting  in  a loss  of  precision  in  later  dimensional  measurements. 
The  indicated  times  of  local  failures  are  not  exact  for  similar  reasons.  On  the  other  hand,  the 
times  shown  for  element  ruptures  in  the  simulation  are  exactly  the  same  as  those  in  the  com- 
puter printout.  However,  as  ground  contact  times  are  not  specifically  printed  out,  the  times 
shown  correspond  to  that  of  the  first  printout  at  which  deflection  of  a given  external  spring 
is  indicated  or,  where  possible,  obtained  by  close  approximation. 

A comparison  of  the  data  shown  in  Figure  70  with  corresponding  data  from  the  pretest  simu- 
lation run  Figure  51  shows  a significant  improvement  in  the  dynamic  characteristics  of  the 
model.  The  predictions  regarding  sequential  occurrence  of  both  ground  contacts  and  primary 
structural  failures  are  in  much  closer  agreement  with  crash  test  data  and  are  within  a few 
milliseconds  of  the  times  established  from  crash  test  data. 
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Figure  67.  Energy  Distributions  of  CH-47A  Crashworthiness  Modified  Model  . 
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Figure  70.  Event  Chronology  of  Modified  Model  of  CH-47A  KRASH  Simulation. 
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6.2  DETAILED  CORRELATIONS 


Data  from  a rerun  of  the  above  simulation  were  processed  through  a 100-Hz,  low-pass  digital 
filter  as  before  to  obtain  time  histories  of  accelerations,  velocities,  and  displacements  of  all 
mass  points  on  the  left  half,  including  the  plane  of  symmetry  of  the  CH-47A  (KRASH)  model. 
The  processed  data  are  included  in  Appendix  D.  The  data  sampling  rate  in  the  crash  test  was 
4,000  per  second.  In  order  that  the  filtered  data  sets  have  a common  basis,  the  rerun  used  a 
constant  integration  time  step  of  50  microseconds  and  acceleration  data  output  on  magnetic 
tape  every  five  iterations. 

For  purposes  of  correlation,  two  sets  of  data  are  selected.  The  first  consists  of  accelerations 
at  selected  mass  points  corresponding  to  principal  concentrated  masses,  e.g.,  forward  trans- 
mission, and  critical  locations  such  as  the  crew  seat  floor.  The  second  set  consists  of  measured 
deflections  in  the  cargo/passenger  compartment  of  the  test  aircraft  correlated  against  predicted 
reduction  in  cabin  height  at  appropriate  station  locations. 

Before  proceeding  with  detailed  correlations  of  accelerations  and  displacements  at  discrete  lo- 
cations obtained  from  the  simulation  with  corresponding  test  data,  it  is  necessary  to  review 
the  methodology  used  to  obtain  the  data  in  order  to  identify  the  various  sources  which  may 
contribute  to  inaccuracies  in  the  data  and  estimate  their  effects  on  the  degree  of  correlation 
that  can  be  obtained. 

6.2.1  Data  Errors 

Experimental  data  invariably  suffers  from  several  types  of  errors  which  can  be  broadly  classi- 
fied under  three  distinct  categories: 

• Human  errors 

• Systematic  errors 

• Random  errors 

Human  Errors 

These  errors,  sometimes  called  gross  errors,  are  mainly  due  to  errors  in  reading  and/or  im- 
proper treatment  of  instruments,  improper  processing  of  data,  or  errors  in  observation. 
Although  their  presence  can  be  identified  in  a one-shot  experiment  by  comparison  of  values 
from  different  observations  of  the  same  event,  the  actual  magnitude  of  the  errors  cannot  be 
estimated. 

The  initial  conditions  defined  for  simulation  of  the  CH-47A  crash  test,  the  impact  velocities, 
and  the  aircraft  attitude  at  impact  suffer  from  this  type  of  error.  Three  sets  of  observations 
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were  available.  The  first  consisted  of  the  following  estimate  from  analysis  of  radar  altimeter 
data  by  NASA/LRC: 

Attitude 

Vertical  velocity  at  impact 
Horizontal  velocity  at  impact 
Resultant 

The  next  set  was  obtained  by  a frame-by-frame  analysis  of  motion  picture  data.  The  coordi- 
nates of  eight  discrete  points  on  the  airplane  in  each  frame  were  carefully  measured.  These 
data  were  then  statically  analyzed  using  least-squares  methodology  to  obtain  a polynomial 
relating  the  displacement  of  each  of  these  points  with  time.  The  displacement  curves  were 
then  differentiated  to  obtain  corresponding  velocity  time  histories.  Examples  of  this  analysis 
for  two  points  are  shown  in  Figures  71  through  78.  An  analysis  of  these  data  yield  the  fol- 
lowing impact  conditions  at  the  landing  gear: 


6-1/2°  nose  down 
43.82  fps 
28.307  fps 
52  fps 


Attitude 

= 8.42° 

Vertical  velocity 

= 44.5  fps 

Horizontal  velocity 

= 27.7  fps 

Resultant 

= 52.42  fps 

Pitch  rate 

= 0.15  rad /sec 

The  third  set  which  was  finally  used  for  the  simulation  and  is  shown  in  Table  6 was  obtained 
as  a result  of  motion  synthesis  studies  carried  out  at  NASA/LRC  and  represents  their  best 
estimate  of  the  true  impact  conditions.  These  were  defined  to  be  applicable  to  the  c.g.  of  the 
aircraft  for  simulation  purposes. 

The  probable  error  of  up  to  2 fps  in  impact  conditions  may  cause  errors  up  to  10%  in  com- 
puted mass  accelerations.  Also,  as  the  precise  instant  of  contact  was  established  from  main 
landing  gear  accelerometer  data,  the  phase  relationship  between  the  test  and  analytical  data 
may  not  be  exact. 

Systematic  Errors 

These  errors  arise  mostly  from  instrumentation  sources.  The  primary  errors  in  the  accelerom- 
eter data  obtained  during  the  CH-47A  crash  test  can  be  ascribed  to  the  following: 

• Linearity  of  response 

• Modification  of  response  due  to  local  installation  stiffness 


105 


tWWit.— v-  t ••  ■--■r--"'*'- • -•  ■ 


Figure  71.  CH-47A  Crash  Test  Film  Analysis  - Vertical  Displacement  Time 
History  at  F.S.  320,  W.L.  0.0. 


Figure  73.  CH-47A  Crash  Test  Film  Analysis  - Vertical  Displacement  Time  History  at  F.S.  360, 
W.L.  0.0. 


Figure  74.  CH-47A  Crash  Test  Film  Analysis  - Derived  Vertical  Velocities  at  F.S.  360,  W.L.  0.0. 
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Figure  76.  CH-47A  Crash  Test  Film  Analysis  - Derived  Horizontal  Velocities  at  F.S.  320,  W.  L.  0.0. 


OB-47  A Crash  Test  Film  Analysis  - Horizontal  Displacement  Time  History  at 
F.S.  360,  W.  L.  0.0. 


• Calibration  errors 

• Phase  shift  and  amplitude  errors  due  to  signal  conditioning  equipment  used  in 
data  acquisition 

• Processing  errors 

Of  the  above,  the  largest  single  contribution  on  magnitude  of  response  is  from  installation  ef- 
fects. Although  great  care  was  taken  to  ensure  that  accelerometers  were  mounted,  as  far  as 
possible,  on  structural  hard  points,  local  natural  frequencies  in  the  mount  area  are  excited  by 
the  impact,  and  the  accelerometer  will  measure  the  resulting  response.  Filtering  the  data  using 
a 100-Hz  LP  filter  does,  to  some  extent,  alleviate  the  problem.  However,  it  will  not  eliminate 
the  effect  of  local  natural  frequencies  below  100  Hz.  On  the  other  hand,  the  structural  model 
used  for  simulation  of  the  crash  impact  does  not  have  any  “local”  frequencies  below  100  Hz. 

Random  Errors 


These  loosely  group  together  all  other  sources  of  errors  which  are  either  not  known  or  occur 
in  a random  fashion.  As  a general  rule  these  errors  are  small  in  comparison  with  the  previous 
two.  Also,  as  a statistical  evaluation  of  the  crash  test  data  to  determine  these  errors  is  neither 
profitable  nor  possible,  no  attempt  will  be  made  to  estimate  their  effects. 

Analytical  data  obtained  from  the  simulation  of  the  CH-47A  KRASH  model  will  include 
several  errors.  The  first  of  these  is  due  to  slower  introduction  of  impact  forces  into  the  struc- 
ture due  to  the  approach  used  in  modeling  the  main  landing  gear.  The  second  arises  from  the 
lumping  together  of  large  segments  of  aircraft  structure  into  a few  elements  and  concentrating 
the  distributed  structural  weight  together  with  the  weight  of  discrete  mass  items  into  the 
nodal  “lumped"  mass.  The  magnitude  of  the  errors  due  to  this  approach  is  not  known  but  can 
be  large  as  indicated  by  studies  in  finite  element  analyses  on  the  deflection  of  statically  loaded 
cantilever  beams  with  a varying  number  of  segments. 

Thirdly,  there  are  program  related  errors  such  as  coding  errors,  some  of  which  have  been  iden- 
tified during  this  and  previous  studies  and  errors  introduced  by  the  predictor-corrector 
routine  employed  in  the  solution  process.  Both  the  KRASH  III  constant  step  and  the  S-7900 
variable  step  integration  schemes  attempt  to  minimize  errors  in  the  forward  direction  only  and 
do  not  attempt  recomputing  previous  incremental  values  on  the  basis  of  an  acceptable  error 
size.  The  approach  can  give  quite  acceptable  results,  provided  the  minimum  integration  time 
steps  are  kept  quite  small  and  the  structural  model  behavior  is  fairly  continuous.  However,  it 
was  found  during  the  simulation  studies  that  gross  errors  occur  if  there  are  closely  spaced 
element  ruptures  and  several  external  springs  in  an  “unload”  condition. 

Fourthly,  the  accuracy  of  the  model  simulation  beyond  the  primary  power  stroke  is  question- 
able due  to  reasons  discussed  in  Section  5.2.2. 
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In  summary  it  can  be  concluded  that,  due  to  the  presence  of  errors  in  test  data,  modeling  tech- 
niques, and  the  KRASH  code,  correlation  of  test  data  with  analytical  results  will  show  devia- 
tions with  respect  to  amplitude  and  phase  relationships  where  accelerations  are  concerned. 
These  deviations  will  tend  to  grow  larger  after  about  0.1  second,  i.e.,  when  the  primary  power 
stroke  is  completed.  Deflection  data  will  suffer  less  from  these  effects  due  to  the  “smoothing” 
effects  of  the  integration  process  on  the  oscillatory  portion  of  the  errors. 


6.2.2  Accelerations 


6.2. 2.1  Longitudinal  Accelerations 


A comparison  of  the  decay  in  vehicle  horizontal  velocities  at  Station  320  and  Station  360  shown 
in  Figures  76  and  78  with  the  analytical  data  shown  in  Figure  67  indicates  that  the  analysis 
overestimates  the  longitudinal  deceleration  of  the  vehicle.  Friction  coefficients  used  for  the 
analysis  are  0.5  at  the  landing  gears  to  represent  tire  friction  and  0.3  for  the  external  springs 
representing  the  bottom  surface  of  the  fuselage.  For  typical  landing  gear  spinup  and  spring- 
back  calculations,  a friction  factor  of  0.55  is  recommended  by  military  and  civil  aeronautical 
specifications.  It  is  also  well  known  that  a flat  tire  tends  to  scrub  and  as  such  exhibits  a higher 
coefficient  of  friction.  Although  definitive  data  for  metal  sliding  on  concrete  do  not  exist, 
extrapolations  of  available  information  suggest  coefficients  of  friction  in  the  range  of  0.2  to 
0.7,  depending  on  various  surface  conditions.  Hence,  the  values  used  in  the  analysis  were 
considered  reasonable. 


As  indicated  in  Section  5.2.1,  there  is  an  unidentified  error  in  the  KRASH  code  which  results 
in  the  model  horizontal  velocity  being  incorrectly  computed.  Actually,  the  model  develops  a 
“negative”  velocity.  It  is  believed  that  the  coding  problem  results  in  incorrect  computation  of 
longitudinal  accelerations.  A summary  comparison  of  the  longitudinal  acceleration  data  from 
test  and  analysis,  in  general,  shows  gross  deviations.  An  exception  to  this  is  shown  in  Figure 
79,  which  compares  the  longitudinal  acceleration  test  data  at  F.S.  320,  baseline  cargo,  with 
analytical  predictions  at  F.S.  360,  floor  frame/side  frame  corner  joint.  Allowing  for  the  differ- 
ence in  station  locations  and  frequency  and  phase  deviations,  there  is  good  agreement  between 
the  two  sets  of  data.  The  predicted  maximum  acceleration  is  within  15%  of  the  test  value. 


6.2.2.2  yerfi<;al_Ac<;ejgr.ationg 


A preliminary  comparison  of  the  CH-47A  KRASH  model  mass  point  locations  with  the  accel- 
erometer locations  on  the  test  aircraft  shows  that  direct  correlation  of  analytical  results  with 
test  data  is  only  possible  at  a few  points.  Secondly,  the  modeling  techniques  used  to  represent 
the  main  landing  gear  to  overcome  the  skating  problem  encountered  during  simulation  and  the 
simplified  representation  of  the  structure  tend  to  reduce  the  rate  of  introduction  of  load  into 
the  structure  and  to  attenuate  high-frequency  response.  Finally,  due  to  problems  associated 
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with  the  external  spring  element  formulation  in  the  KRASH  code,  the  accuracy  of  the  detailed 
response  of  the  model  beyond  the  primary  power  stroke  decays  rapidly. 

In  view  of  the  above  considerations,  detailed  correlations  are  presented  only  for  a few  points 
selected  on  the  basis  of  their  importance  with  respect  to  general  crashworthiness.  For  ease  of 
comparison,  vertical  acceleration  data  are  shown  in  the  figures  using  KRASH  convention,  i.e., 
negative  acceleration  acts  in  the  upward  direction.  Relevant  comparative  data  are  summarized 
in  Table  8.  A brief  discussion  of  individual  results  follows. 

Main  Landing  Gear 

In  the  CH-47A  KRASH  model,  the  effective  weight  at  the  main  landing  gear  location  is  dis- 
tributed between  three  mass  points  as  follows  (left  side  shown): 

Nodell  = 236.51b 

Node  12  = 161  lb 

Node  37  = 97  lb 

Total  494.51b 

The  analytical  vertical  acceleration  at  the  main  landing  gear  was  obtained  by  combining  the 
simulation  data  at  mass  points  11  and  12,  using  effectivity  factors  relating  the  nodal  weights 
to  the  total  weight.  The  results  are  compared  with  test  data  in  Figure  80.  During  initial  impact, 
the  analysis  predicts  an  upward  acceleration  of  115  g,  which  is  about  25%  higher  than  the 
test  value  of  90  g.  Also,  the  maximum  frequency  placements  are  within  0.0009  second  of 
each  other.  Beyond  0.01  second,  however,  there  is  no  correlation  between  the  two  sets  of 
data.  The  test  data  shows  the  effect  of  recoil,  whereas  the  model  data  shows  virtually  no  load. 
This  is  due  to  the  program  modeling  constraints  discussed  earlier. 

Forward  Transmission 


The  acceleration  data  from  test  and  analysis  are  compared  in  Figure  81.  It  can  be  seen  from 
the  figure  that  the  analysis  lags  considerably  behind  test  data.  The  lag  is  explained  by  the  slow 
introduction  of  load  by  the  second  set  of  external  springs  used  to  model  the  landing  gear.  Al- 
lowing for  the  resulting  phase  shift,  the  analysis  predicts  a maximum  upward  acceleration  of 
1 1 9 g,  which  is  reasonably  close  to  the  test  value  of  88  g. 

Cockpit  Floor 

Figure  82  compares  analytical  and  test  data  for  the  vertical  accelerations  at  the  floor  under  the 
crew  seat.  The  analytical  data  correlates  closely  with  test  data  at  maximum  amplitude  both  in 
terms  of  magnitude  and  placement.  The  lag  in  acceleration  buildup  is  caused  by  reasons  dis- 
cussed earlier. 
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CH-47A  KRASH  Simulation  - Vertical  Accelerations  at  Main  Landing  Gear,  F.S.  240. 


Figure  81.  CH-47A  KRASH  Simulation  - Vertical  Accelerations  at  the  Forward  Transmission. 


Figure  82.  CH-47A  KRASH  Simulation  — Vertical  Acceleration  at  Cockpit  Floor  Under  Crew  Seat. 


Cabin  Floor 


The  analytical  predictions  for  vertical  accelerations  along  the  cabin  floor  centerline  at  F.S.  360 
and  482  and  at  the  side  frame/floor  joint  at  F.S.  360  are  compared  to  test  data  from  closely 
situated  accelerometers  at  F.S.  370,  F.S.  460,  and  F.S.  320  (side)  in  Figures  83,  84,  and  85, 
respectively.  The  analytical  data  is  in  fairly  good  agreement  with  test  data  in  spite  of  the  fact 
that  the  test  data  applies  to  locations  which  are  up  to  40  inches  away  from  the  analysis  locations. 

Left  Engine 

Figure  86  compares  the  accelerations  at  the  left  engine  determined  by  analysis  with  test  data. 

If  the  phase  shift  indicated  is  ignored,  there  is  a very  close  agreement  between  the  two  results. 

6.2.3  Deflections 

The  deflections  at  discrete  structural  locations  obtained  by  double  integration  of  test  accelera- 
tion data  are  not  directly  useful  as  the  local  axes  and  the  inertial  axes  are  inclined  with  respect 
to  each  other  by  varying  amounts  throughout  the  crash  impact  sequence.  The  analytically 
determined  accelerations  are  computed  in  the  moving  body  axes  as  also  the  deflections  ob- 
tained by  integrating  the  test  data.  Hence,  without  a voluminous  amount  of  data  analysis,  di- 
rect comparisons  of  test  and  analytical  deflections  cannot  be  made. 

The  test  aircraft  instrumentation  included  deflection  poles  which  provide  time  histories  for 
cabin  height  reduction  at  three  fuselage  station  locations.  Although  these  station  locations  do 
not  coincide  exactly  with  any  mass  point  location  in  the  structural  model,  the  time  histories  of 
the  position  coordinates  of  spanwise  mass  points  obtained  from  the  analyses  were  used  to 
generate  plots  of  cabin  height  reduction  versus  station  location  along  three  buttlines  at  succes- 
sive time  intervals.  The  analytical  time  histories  of  cabin  height  reductions  at  the  deflection 
pole  locations  were  then  obtained  from  these  plots  by  interpolation  for  station  and  buttline 
location.  The  results  are  compared  with  test  data  in  Figures  87  through  90  and  92.  Figure  91 
shows  a comparison  of  analytical  data  for  cabin  height  reduction  at  F.S.  240  with  data  ob- 
tained by  interpolating  from  test  measurements.  The  results  are  summarized  in  Table  9. 

A review  of  the  comparative  data  shows  that,  if  oscillatory  excursions  are  excluded,  the 
analytical  data  are  in  excellent  agreement  with  test  data  at  F.S.  125  (see  Figures  87  and  88). 

At.  F.S.  284,  the  analysis  shows  a much  later  initiation  of  deflection  compared  to  test  dati.  On 
the  right  side,  Figure  89,  the  analysis  catches  up  with  test  data  rather  rapidly  and  the  Final  de- 
flections are  essentially  the  same.  This  is  not  the  case  on  the  left  side,  Figure  90.  Test  data 
show  that  cabin  height  reduction  was  considerably  less  here  than  in  the  right  side,  whereas  the 
analytical  data  are  somewhat  more  symmetric.  It  is  possible  that  the  test  data  beyond  0.12 
second  are  inaccurate  due  to  the  effect  of  local  floor  buckling  on  the  deflection  pole. 
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Figure  83.  CH-47A  KRASH  Simulation  - Vertical  Acceleration  at  F.S.  360  Floor 


Figure  84.  CH-47A  KRASH  Simulation  — Vertical  Acceleration  at  F.S.  460  Floor 
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Figure  86.  CH-47A  KRASH  Simulation  - Vertical  Acceleration  at  Left  Engine  C.G. 


Figure  87.  CH-47A  KRASH  Simulation  — Cabin  Height  Reduction  at  F.S.  125  R.H. 


F**Ure  88-  CH'47A  KRASH  Simulation  - Cabin  Height  Reduction  at  F.S.  1 25  L.H 
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Figure  89.  CH-47A  KRASH  Simulation  - Cabin  Height  Reduction  at  F.S.  284  R.H. 


Figure  90.  CH-47A  KRASH  Simulation  - Cabin  Height  Reduction  at  F.S.  284  L.H. 


Figure  92.  CH-47A  KRASH  Simulation  - Cabin  Height  Reduction  at  F.S.  4SS. 


Figure  91  also  shows  that,  although  analytical  predictions  for  F.S.  240  initially  lag  test  data  as 
at  F.S.  284,  the  predicted  value  for  maximum  height  reduction  is  at  about  the  same  time  as  and 
within  18%  of  the  test  maximum. 


On  the  other  hand,  an  examination  of  the  data  for  F.S.  455  in  Figure  92  (a)  and  (b)  shows 
a considerable  difference  between  analytical  and  test  data.  The  test  values  arc  still  increasing 
at  0.20  second,  whereas  the  analytical  values  are  past  or  nearing  their  maximums.  Also,  the 
analytical  maximums  are  about  50%  of  the  test  data  at  0.2  second. 
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A review  of  the  summary  comparisons  shown  in  Figure  70  and  Tables  8 and  9,  as  well  as  the 
time  history  data  in  Figures  79  through  92,  indicates  that,  in  general,  the  dynamic  response 
obtained  from  simulation  of  the  improved  CH-47A  KRASH  model  agrees  reasonably  well  with 
the  data  obtained  from  the  CH-47A  crash  test.  There  are,  however,  detail  variations  which  will 
be  discussed  now. 

The  general  kinematics  of  the  test  aircraft  are  duplicated  by  the  model  response  within  a few 
milliseconds  during  the  initial  120  milliseconds  after  impact.  Thereafter,  the  model  behavior 
deviates  rapidly  from  that  of  the  test  aircraft.  This  deviation  may,  in  part,  be  due  to  the  rapid 
deceleration  of  forward  velocity  of  the  model  as  well  as  unidentified  coding  errors  in  the  treat- 
ment of  ground  friction.  Further,  in  the  model  response,  there  is  a short  period  of  time  after 
the  first  beam  element  in  the  main  landing  gear  representation  is  ruptured  and  the  second  ex- 
ternal spring  has  not  yet  contacted  the  ground.  During  this  time  interval,  no  external  forces  are 
induced  into  the  vehicle.  This  results  in  the  model  response  lagging  the  actual  response  of  the 
test  article. 

The  sources  for  and  possible  effects  of  errors  both  in  the  test  data  and  from  the  modeling  tech- 
nique employed  here  have  been  discussed  in  some  detail  in  Section  6.2.1.  Although  no  precise 
estimate  of  the  magnitude  of  these  errors  is  possible  in  this  case,  initial  velocity  estimates  alone 
may  result  in  errors  of  up  to  10%  in  the  analytical  results  for  mass  accelerations  in  the  vertical 
direction.  The  total  effect  from  all  error  sources  may  well  exceed  twice  this  amount.  Further, 
the  absence,  in  the  model,  of  landing  gear  recoil  effects  and  the  lag  in  response  noted  earlier 
lead  to  increasing  phase  and  amplitude  errors  in  the  model  response  data.  The  comparative  data 
in  Table  8 show  that  the  deviations  in  maximum  values  for  vertical  accelerations  are  within 
acceptable  limits. 

In  the  case  of  displacements,  the  effect  of  some  of  the  errors  in  the  analytically  determined  ac- 
celerometer data  may  be  minimized  through  the  smoothing  effect  of  the  double  integration 
process  employed.  Thus  a closer  correlation  between  analytical  and  test  data  for  deflections 
in  regions  not  directly  affected  by  external  spring  rebound  effects  can  be  expected.  This  is 
borne  out  by  the  comparisons  shown  in  Table  9,  where  the  maximum  deviation  between  the 
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cabin  height  reduction  values  derived  from  analysis  and  test  data  is  less  than  18%.  The  devia- 
tion is  considerably  higher  at  F.S.  455  where  the  later  response  is  affected  by  the  rebound  of 
all  external  springs  in  the  forward  areas. 

In  summary  it  can  be  stated  that,  except  in  the  longitudinal  direction,  the  analytical  results 
obtained  by  S-7900  simulation  correlate  excellently  with  test  data  up  to  about  130  milliseconds 
after  impact.  The  correlation  deteriorates  after  this  point  due  primarily  to  KRASH  code 
limitations. 

6.4  KRASH  PROGRAM  VALIDATION 

i 

The  KRASH  111  computer  program  as  received  at  Boeing  Vertol  was  developed  by  Lockheed- 
Calilornia  under  Army  sponsorship  (see  Reference  1).  During  the  course  of  the  efforts  under 
this  contract,  the  capabilities  of  the  KRASH  were  enhanced  by  incorporating  several  improve- 
ments as  well  as  corrections  to  minor  coding  errors.  This  improved  program  is  entitled  S-7900. 

Throughout  the  course  of  this  study,  a large  number  of  computer  runs  was  conducted  utilizing 
KRASH  III  and  S-7900.  The  capabilities  of  KRASH  to  simulate  the  dynamic  response  of  a 
helicopter  to  a crash  impact  have  been  explored  in  great  detail.  These  efforts  have  led  to  a 
better  understanding  of  the  limitations  existing  in  the  KRASH  program  and  also  to  an  extension 
of  the  validity  of  the  program  for  use  as  a design  tool  for  the  analysis  of  airframe  structural 
crashworthiness.  The  results  are  summarized  in  Table  10. 
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7.0  CONCLUSIONS  AND  RECOMMENDATIONS 


7.1  CONCLUSIONS 

Based  on  the  investigations  reported  here,  it  can  be  concluded  that: 

(a)  Although  KRASH  needs  further  improvement,  it  is  a useful  tool  for  evaluation 
of  structural  crashworthiness  and  a significant  advance  in  analytical  methodology 
available  for  the  purpose. 

(b)  The  KRASH  program,  S-7900  version,  with  certain  limitations,  provides  an  ac- 
ceptable method  for  obtaining  the  dynamic  structural  response  during  the 
primary  power  stroke  of  large  helicopters  in  a crash  impact  environment. 

(c)  The  program  can  be  employed  to  estimate  the  overall  decrease  in  the  volume 
of  occupied  areas. 

(d)  Parametric  evaluation  of  different  structural  arrangements  during  preliminary 
design  states  can  be  performed  with  KRASH  provided  great  care  is  exercised 
in  constructing  the  structural  models. 

(e)  The  external  spring  logic  in  KRASH  is  in  error  and  does  not  represent  fully  the 
action  of  crushablc  structure. 


(f)  Behavior  of  oleo  struts  cannot  be  represented  by  available  elements  in  KRASH. 


(g)  With  some  simplification  of  the  program  and  incorporation  of  recommended 
improvements,  the  usefulness  of  KRASH  as  a design  tool  for  incorporating 
structural  crashworthiness  into  an  airframe  during  the  early  design  stages  will 
be  greatly  increased. 

7.2  RECOMMENDATIONS 


Several  of  the  shortcomings  and  coding  errors  which  severely  limit  the  capabilities  of  KRASH 
have  been  discussed  in  previous  sections.  Suitable  improvements  and  corrections  should  be 
incorporated  into  the  KRASH  program  in  order  for  it  to  be  used  in  the  detailed  and  accurate 
analysis  of  aircraft  structural  crashworthiness.  In  addition,  the  usefulness  of  KRASH  as  a de- 
sign tool  will  be  further  enhanced  if  certain  input/output  facilities  are  incorporated  into  the 
program.  Pertinent  recommendations  follow: 

• Incorporate  suitable  corrections  to  external  spring  load  calculation  methodology 
in  KRASH  to  eliminate  improper  loads  being  calculated  during  load/unload/reload 
cycle. 
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Review  in  detail  the  formulation  of  the  basic  equations  of  motion  and  their  inte- 
gration scheme  in  DERIV  to  determine  sources  of  errors  which  result  in  nonsymmetric 
solutions  to  symmetric  problems.  (An  attempt  to  resolve  this  problem  in  KRASH 
(B/V)  was  only  partially  successful.)  Necessary  corrections  should  be  incorporated 
into  KRASH. 

Analyze  treatment  of  ground  friction  in  KRASH  to  determine  causes  for  the  re- 
versal of  forward  velocity  obtained  in  the  CH-47A  crash  simulation  studies  and  in- 
stall required  coding  changes.  Also  include  frictional  energy  separately  in  the 
printout. 

Develop  and  incorporate  methodology  to  properly  account  for  total  strain  in  the 
computation  of  beam  element  loads  in  the  plastic  zone.  The  existing  methodology 
in  KRASH  uses  independent  KR  factors  applied  to  each  term  in  a beam  element 
stiffness  matrix.  This  does  not  account  for  proper  interactions  between  the  strains 
in  all  six  ‘1’  directions  at  onset  of  yield  and  results  in  large  errors  in  beam  loads  and 
strain  energy  computations. 

A more  rational  methodology  to  predict  beam  element  rupture  is  required.  It 
should  be  based  on  an  acceptable  failure  criterion  using  combined  strain  effects. 
KRASH  now  calculates  element  rupture  when  the  strain  in  any  one  direction  ex- 
ceeds the  rupture  strain  defined  for  that  direction.  This  can  cause  very  large  errors 
in  the  magnitude  of  loads  computed  at  rupture  for  highly  loaded  beam  elements. 

KRASH  element  vocabulary  should  be  expanded  to  include  a spring/damper-type 
element  capable  of  representing  landing  gear  behavior. 

Provide  a total  energy  balance  routine.  The  energy  distributions  are  computed  in 
KRASH  III.  However,  this  information  is  not  used  to  flag  decay  in  solution  pro- 
cesses. It  will  save  a considerable  amount  of  computer  time  if  a routine  were  to  be 
incorporated  which  terminates  program  execution  if  the  total  energy  of  the  system 
departs  from  initial  values  by  specified  control  levels.  This  will  help  the  analyst 
identify  and  correct  modeling  or  other  problems  which  cause  the  deviations. 

Considerable  savings  in  preparation  time  and  data  analysis  will  be  achieved  by  in- 
cluding the  following  user-oriented  options: 

(a)  Internal  computation  of  stiffness  matrices  from  basic  structural  data. 

(b)  Several  general  types  of  KR  shapes.  User  to  specify  type  required  for  each 
beam  element.  Special  types  would  still  be  input. 
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(c)  Printout  of  all  results  at  each  instant  of  element  rupture  and  external  spring-to- 
ground  contact.  This  will  aid  the  analyst  to  understand  better  the  dynamics  of 
the  problem  since  it  is  primarily  at  these  instances  that  significant  changes  in 
element  forces,  mass  accelerations,  and  velocities  occur. 

(d)  Internal  computation  and  printout  of  the  relative  displacement  between 
several  selected  mass  points.  This  will  eliminate  a considerable  amount  of 
manual  data  processing  to  ascertain  information  such  as  reduction  in  the  volume 
of  occupied  areas. 

(e)  Printout  to  include  center  of  gravity  and  attitude  of  vehicle. 

NOTE:  User  options  (a)  and  (b)  are  available  in  another  version  of  KRASH 

(see  Reference  28). 

In  addition  to  the  above  recommendations  for  improving  KRASH,  some  of  the  gross  errors  af- 
fecting interpretation  of  crash  test  data  can  be  minimized  by: 

• Provision  of  fixed  vertical  and  horizontal  reference  lines  in  the  impact  area  which 
should  be  clearly  visible  in  the  movie  films  of  the  impact  test.  This  will  permit  a 
reasonably  accurate  estimate  of  impact  velocities  and  attitude. 

# Including  a ground  contact  indicator  in  the  test  article  instrumentation  package. 

This  will  provide  a definitive  time  zero  for  the  test  data. 
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appendix  a 


SAMPLE  CALCULATIONS  FOR  CH-47A  KRASH 
MODEL  STRUCTURAL  PROPERTIES 


1.  Center  fuselage  bending  strength. 

Figure  A-l  shows  a typical  section  of  center  fuselage  area.  In  order  for  the  model  bending 
strength  in  the  area  to  match  the  ultimate  bending  strength  of  the  fuselage  area  for  dynamic 
loading  conditions,  it  is  necessary  that  the  section  properties  of  the  model  shall  show  the  same 
distribution  of  effective  material  as  in  the  real  aircraft  with  actual  values  adjusted  to  reflect 
expected  improvement  in  strength  resulting  from  rapid  application  of  loads. 

The  properties  of  the  section  shown  are  computed  in  Table  A-l.  The  calculations  are  grouped 
to  reflect  composition  of  the  CH-47  A crash  model  longitudinal  beam  elements.  A segment  of 
the  CH-47  A model  is  shown  in  Figure  A-2.  The  model  beam  element  properties  were  calcu- 
lated  with  some  redistribution  necessitated  by  the  model  geometry  and  using  a dynamic  bend- 
ing strength  factor  of  1.20.  The  section  properties  for  the  model  are  shown  in  Table  A-2.  The 
model  properties  show  that  the  section  centroid  is  in  error  by  about  an  inch,  and  the  ben  ng 
strength  reflects  a 27%  increase.  This  was  considered  to  be  acceptable. 

2.  Fuselage  skin  elements. 

The  theoretical  ultimate  strength  of  the  side  skin  elements  with  an  effective  total  height  equal 
to  83  inches  is  given  approximately  by  : 

VULT  = 22  (19x.025+30.5  x.032+21.5x.016) 

(kips)  +12x23x.040 

= 50.5 

This  assumes  development  of  full  diagonal  tension  in  all  skin  panels  at  the  same  time.  However, 
the  variations  in  skin  panel  thicknesses  and  reduction  in  effective  support  provided  by  edge 
elements  rarely  allow  these  values  to  be  achieved.  Analysis  of  some  of  the  test  data  in  Reference 
31  indicates  that  under  these  conditions,  the  ultimate  strength  will  be  reduced  by  about  30%, 
i.e.,  to  35.3  kips.  For  the  one-sided  element  in  the  CH-47A  KRASH  model  representing  the 
diagonal  tension  strength  of  the  skin  element,  the  average  equivalent  ultimate  strength  is  given 

by: 


31.Sechler,  Erne,,  E.,  end  Dunn,  Lout.  G.,  AIRPLANE  STRUCTURAL  ANALYSIS  AND  DESIGN.  Dove,  PubUCion,. 
Inc.,  New  Yoik,  New  York,  June  1963. 
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Figure  A-l.  Typical  Cross  Section  of  the  CH-47A  Center  Section  Showing  Stringer  Location, 
F.S.  160  to  F.S.  440. 
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TABLE  A-l.  CH-47A  CENTER  FUSELAGE  SECTION  PROPERTIES 


I 


I 


Str 

No. 

Effective 
Area,  A 
(in.2) 

z 

(in.) 

Az 

(in.3) 

Az2 

(in.4) 

Model 

Element 

(see  Figure  A— 2) 

3 

0.0587 

54.88 

3.22 

176.8 

4 

0.0587 

53.51 

3.14 

168.1 

b-h 

5 

0.0587 

50.77 

2.98 

151.3 

(f-1) 

6 

0.7095 

46.74 

33.16 

1,550.0 

7 

0.0198 

42.46 

0.84 

35.7 

' 

8 

0.0198 

37.87 

0.75 

28.4 

9 

0.0198 

33.47 

0.66 

22.2 

10 

0.1442 

28.96 

4.18 

121.9 

Subtotal 

1.0892 

14.92 

48.93 

2,253.4 

15 

0.2337 

0 

0 

0 

16 

0.0198 

- 5.70 

- 0.11 

0.6 

c-i 

17 

0.0198 

-10.80 

- 0.21 

2.3 

(e-k) 

18 

0.0198 

-16.19 

- 0.32 

5.2 

19 

0.1570 

-20.83 

- 3.27 

68.1 

20 

0.1570 

-25.49 

- 4.00 

102.0 

21 

0.6670 

-30.19 

-20.14 

607.9 

21 A 

0.4220 

-30.04 

-12.68 

380.8 

22* 

1.2800 

-41.70 

-53.37 

2,225.8 

Subtotal 

2.9761 

-31.62 

-94.10 

3,392.7 

2 

0.0587 

55.50 

3.26 

180.8 

1 

0.2260 

55.45 

12.53 

694.9 

46 

0.1969 

55.43 

10.91 

605.0 

a"g 

44 

0.1718 

55.8 

9.59 

534.9 

43 

0.0587 

55.5 

3.26 

180.8 

Subtotal 

0.7121 

55.54 

39.55 

2,196.4 

Total 

(Full 

Section) 

8.8427 

- 5.74 

-50.79 

13,489 

* Includes  contribution  from  bottom  skin 


I„„  = 13,489  - 8.8427x5.742  = 13.197  in.4 


TABLE  A— 2.  CH-47A  KRASH  MODEL  SECTION  PROPERTIES  (PRETEST) 


Beam 

Area 

2 

A2 

V 

C\J 

MJ 

c 

.71 

55.5 

39.4 

1.39 

46.6 

64.8 

104 

2.67 

-36.0 

-96.1 

400 

.6 

-36.0 

-21.6 

■webi 

2.67 

-36.0 

-96.1 

400 

3460 

f-1 

1.39 

46.6 

64.8 

104 

3019 

Total 

9.43 

- 4.75 

-44.8 

1008 

wm 

lJy  - '6719 


IN4 


Figure  A- 2.  Typical  Center  Section  Segment  — CH-47A  KRASH  Model. 
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TULT  = (35.3)/sin 

= 65.6  kips 

with  F£u  = 62  kips,  the  effective  area  of  the  member  is  calculated  to  be 

Aeff  = 6^6  = i.o58  in.2 

62 

Area  used  in  model  = 1.05  in.2 


3.  Typical  floor  beam  element. 
(Element  c-d) 


Several  types  of  floor  beams  are  used  in  the  CH-47A  center  section  area.  The  section  proper- 
ties of  all  the  intermediate  frames  at  Fuselage  Stations  180,  220,  300,  and  380  are  essentially 
the  same,  whereas  the  other  frames  are  designed  to  meet  major  strength  requirements.  As  in 
the  CH-47A  KRASH  model,  several  floor  frames  are  lumped  together  into  one  element;  dis- 
tribution factors  were  applied  to  individual  section  properties  to  arrive  at  the  basic  element 
section  property.  For  example,  Beam  16-17  is  assumed  to  reflect  the  sam  of  the  different 
contributions  in  bending  as  follows: 


4. 


Iyy  (16-17) 


0.25x 
0.5  x 


Vy  F.S.  300  + *yy  F.S.  420 
*yy  F.S.  320  + [yy  F.S.  400 
1.0  x Iyy  F.S.  360 
= 0. 25(27. 1+43.  l)+0. 5(43. 1+42. 2)+37.6 

= 97.8  in.4 

External  spring  element  at  Node  10. 

ir 


.25  in. 


+ 

+ 


Cross  Section  of  Typical  Intermediate  Floor  Frame 
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The  spring  characteristics  are  based  on  using  the  compression  capability  of  the  frame  web. 


Core:  3 pcf  20  N 3003  Cell  Size  = 3/8  in. 

Gxz  = 4.8xl03  lb/in.2 
GyZ  = 12.8xl03  lb/in.2 

Web:  tj  = l2  = 0.02  in. 

b = 9.2  in.  = a (Assumed) 
d = 0.25  in. 
h = 0.29  in. 

Analysis  (see  Reference  32  for  methodology): 


K = 6 


kc  = 4 


4 Gyz  + 3 Gxz 


K)2] 


4x12.8+3x4.8  =2.74 


(tl+t2) 


= [2x.29x2.74xl03l  = 3.97xl04 

L CIA  J 


d/ir 2/rjT^  ,25-/r 


r m -I 

L 2 /. 02x.02  J 


= 15.02 


Fc  = 60,380  psi  for  707 5-T6  clad 

Using  a dynamic  amplification  factor  of  1.15  and  ratioing  for  7075-T6  bare 

F = 60380  x iZ000  x 1<15  = 75037  psi 
c 62000  v 

P’  = Equivalent  strength  at  yield  = 75037  x .04 

= 3,001  lb  per  inch  width 


32.  STRESS  MANUAL,  Boeing  document  D6-22695,  Boeing  Commercial  Airplane  Company,  Seattle,  Washington 
December  1971. 


Effective  strength  at  yield  for  spring  at  10. 

= Sum  of  contributions  from  floor  frames  at  Stations  160.  180, 

220,  240,  260,  280,  and  300. 

= 0.25  (Pi60+P220+P30o|  +0-5  (P180+P28o) 

+P240+P260 

— 2.75  P’  per  inch  width 

Yield  strength  for  effective  width  assumed  20  in. 

= 20x2.75x3001 

= 1.65x10^  lb  (1) 

Effective  strain  = .0076 

A1  = .0076x10.4  = 0.079  in.  (2) 

Assume  residual  strength  at  collapse  of  web  = 10%  of  yield  strength  and 
associated  change  in  length  = 6 in.  (3) 

Assuming  uniformly  distributed  load  on  the  floor  frames. 

K - 48E1 

1 ~W 

For  three  equal  springs  in  series  K (spring)  = 3Kj 

Use  Ieff  = 36.8  in.^ 

1 = 97.6  in. 

E = 10x1 06  lb/in.2 

adjacent  frame  contribution  factor  = 2.75 
.'.  Effective  K at  bottoming 

" Ke 

= 48xl0xl06x36.8 

x3x2.75 

97. 63 

= 1.5675xl03  lb/in.  (4) 
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S,  = 0.079  in. 


= 6 in. 


7 in. 

0.3 

1.5675xl05 


Sfr  =0.1  in. 
Sg  = 5.9  in. 


sF 

FSPOI 

fSPOF 
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= 1.65083x10' 
= 1.65083x10“ 
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APPENDIX  B 

CH-47A  (KRASH)  PRETEST  MODEL  - ACCELERATIONS 
AT  SELECTED  MASS  POINTS  (100  Hz  FILTERED) 
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APPENDIX  E 

PROGRAM  S7900  KRASH 
LISTING 


JUIS  PAGE  IS  BEST  QUALITY  PKACSPtfiAfiU 
gaOM  QQPY  PUBmiswup  ^jplq  - - 

1  CltP  cuso 

; fEM(  ER  N„rE  S79RAmN  000? 

implicit  gEAt*8l A»haO-Z) 

fit  AL*4  XKs,XKH,XKI,CHUU  0OP3 

IN  TE(,ER»4  Blank,  YIeLO'PlAct 
DIMENSION  LBIS(85) 

CeMMfN/PLuT i / NOPCO  T a NMPT ( 5a  40 ) a 1 SCALE ( 5 ) a KT YPE  t 5 I a NPTCa  KPLT 
CBMHj  N/lf,T75/Nv 

COMMON/  ] tr,YM/N3YM(  ?0  ) > 1 bDfi  ( 4 0 ) 

CeMM()N/PN?S/PN, 85 ) 

CChMpN/sDr  co/sdf ( 85) 

CCHMpN/lLfMV/lfiUPSKlOab),  iPENiR(08S|  0005 

cCfMtjN/DEi,  IN/Hpx  ( So  I a ME  ’ I 5>  I a HE  / (50  | , ALlr  T ( 5.j  I a VMAx  ( 510  ) 003  4 

1 a PH  I OP  ( 5., ) a THp  DP  I 50  » ' pSlr>Pl50  I . PHI  PH,  Tut  PR,  PS1PR  0035 

CCMMpN/OE  (.  INI  /XNBAR,  XPBAfi  , yNOAW  , YPtiAR,  ZN0  AR , ZPBaR  0036 

cefli  N /I,  ,74/  70a  xr,l)3  I A /LOOT'  Y lioo  r »PPH»  OP<A  RPR  0037 

CCHM,.N/I  NTG/  I 4fiur  (bOI<:I[lEll<KK|12||,IR(i?il,jR(i?l)»  00  38 

J 101 121) a jUt 1 2 1) ,LOI l2l ) aNPQ{ 12] > , 1KCT  0039 

COMMON/  IftlPLY/  NE  ( 085  I A No:iA  Nio  ( 085  I , NCP(  085  ) A NSa  L3  0039 

CCr-Mt-N/vApSTP/  DEL  T Hu,  Or  Ls  / , ( -PaEEo.eRMT, ERROR 

\,tmx,ttmx,tttmx 

COMM.  N/LIt  ES/XkS  ( 1200  I a XKt,  ( 1?00  I a NLSFlG  I 510  I , CHUG (1201 

CeHMeN/!Hl/IMPAP,IPAP 

CCMMt’N/Nlt  1 EO/KflUNr  a LO l 5 

COMMON/  CfMPLY/PROpi  20a  3 I ,PT  iM,  TMEL  I 085  ) , CKP!  ( 085a  4, 8 ) aEALH  (085, 4 10039 
CeflMpN/  PiLD/Sir,B(o85<4i,t;<YI085,4i,Tx2(085,4),SU(o9bA4),SV(085,4l6o39 
CeHH-  N7  1 PvLD/Y  IELO  ( 085  ■ 4 | ,pl_  A6T  , 085,  4 ) 

0 IHEf.SION  CPH1  I 50  ) ,DIHE1  A ,fiO  ) A Dps  I ( 5o  ) aN3(  85, 6 ) , 

1 vEE2(6,8kI 

CerHcN/HAiNCF/  IPNl  <T,  (JPLOTa  U>S(50a3)  0016 

COMMflN  /Bi  ANK 1 / XX | 50  I , *Y , SO  I , X2 ( 50  I , XL ( 50  I , XM ( 50  I , 0006 

1 XN( 50  I ,OpX (50  I aDPy ( 50 ) ,DP7 (50 | ,OPL ( 50  I aDPM ( 50 ) aOPN ( 50  I a P I N ( 50  1 , 000  7 

2 <1  IN  ( 50  1 , K IN  < 5o  > « XI  l ( 50  I « y 1 2 l bo  | , XI  3 ( 50  I a *1  4 ( 50  I a X 15  ( 50  > a X 1 6 ( So  > » 0008 

3 XXK(C85).XYX(085),x2xU8t'lAXLK(085|,xHK(085l,XNKI085lA  XX  JL0»5j_a_  OOO? 

4 X Y J(  C85  ) . XZ  j(  t85  ) , XLOI  J8s  | a Xf'J(  08b  ) , xN  j ( 085  I a 0010 

5 OlL  I ( 5r  » ,POL0  I 5r  I a OOLD  | 50  I , R8L0(  Sr,  I »UOLO  ( 50  1 » VOLO  ( 50  ) , 0011 

6 NOLD(50)  ,X8L0i5C  I , YOLDi  bo  1 a ZULU  ( 50  ) , P 1 NO  I 50  1 a Gil  NO  (50)  aRIN0(5C  ! a 0012 

7 L,XI„(O85|»flYl.|(C8slAtJZi.JlA85>APHieLu(5O)ATHE0LD(5oi<PSlOL0(50lA  0013 

8 TPEn(085|#TRURT(085I*OTHai.F  0014 

COMMrN  /InLANK/  UkKaXPsN.kRNPI  , IPL.NI  u«5  | A IRUPT(085Ja  JRUPT(085l  0015 
COMMpN/COrALL/  C ( 6 , 085 ) a P , 50 > * 0 ( 50 ) a R t SO ) a U ( 50 i a V ( 50  I a h ( 50 ) a X I 50 ) a 00 1 7 

1 Y<50>a?Is0>aA1(9>,AJI9)axkREF(6a85)aSC(50a3IaXC<6)a 
A XX ( 3060  I . X I ( bo  I a 

2YI I5c I AZI (501 aXYI (501 AXZI ,501  A YZI (501 , A 1 J ( 9 ) a B I J ( 450  I »Dl J(  7 65  I / 

3 091,085’ ,OAI(450IaV£E(51p,, WOT (50), PHI(501aTHETA(50(aPSI (501a  0020 

4 POST  (bc),ODOT  (50), ROOT  (5p  | ,UDOT  (50  | , VDOT  (50  ) a ROOT  (JO  I a XD0T  ( 50  j a £011. 

5 YOO,  (50 ) , ZOOT (50),PH10JT,50  » a THEOOT ( 50 ) , PS ! DOT (50  I .TIME a DEL  TAT a 0022 
6XACC(50)avACC(50)<ZACU50i,AITAJ(9),a1DOT(9)aPMBAR(6a85|, 

A CELPMO | 3p60 I a 

7 PMIjJIOSf  )aTHE|J(085IaPStIJ(085)aSU((0F(6a085)aTITlE(80|a  0024 

8 XL8tR(b0,3)AFsPBAfil50A3» tvEED0T(3A3|ADX(50lADr(50»AOZ(50lA  0025 

8 DPIfi(50I.DaiN(60),DRlNl5n|,  0026 

8 SE tJ|Oft5iA0fcl JipttS) aCE1K(30a3| a Tmax  0027 

COMMON  / 1 COMAL/  M*xNM,MAx IGSaMAXTBLa INDPa  0028 

A NM,  JOS,  JpLOT  , ’(PLOT  / I PL  S w , ( P , I PL  C « I , J a I PL  0 T ( 0 1 0 I a 1 0 ( 08  5 ) , JU  ( 08  5 ) , C9?9 

B N |5lO) aNn(50a 3 I a IsP(50a3 i , I JPH(085 IDPLOT (0l0 I 0030 

EQUIVALENCE  ( N( 1 | anJ( 1 ) I a ( vEE ( 1 I a VEE2 ( I ) I 

0 A l A BLaNx  / 4rt  / 0032 

MAXNM»5c 
mAXIgS-85 
MAXTBL  • i20 


IBIS  PAGE  IS  BBS!  QUALITY  PRACJifiAffll  “ 
mpy  ncatLSHSi  TO  UQQ 


0035 


191 


1 

2 
J 

4 

5 

6 
7 
o 
9 

1 o 
n 
18 
IP 

1 9 

15 

16 
1 ' 
18 
1* 
20 
21 
2p 

2 J 
2“ 
25 
2b 
2' 
28 
23 

30 

31 

32 
3P 

34 

35 
3b 

37 

38 

33 
40 
Al 

<!* 

4 P 
44 

46 

47 
4® 
43 
50 
5> 

52 
5P 
5* 
55 
5* 
V 
58 

53 
60 


S 1 NEK* 1 • / 1 0 • E 1 0 

0035 

61 

tPLSw  • 0 

0036 

62 

PTII1.-l.EiO 

6 a 

C PARAMETERS  kO;iNT  JOE  & FACTuR  aRE  US£0  TO  EASE  INTEGRA!  ION 

66 

C PROBLEMS  FpH  RUPTURE  C*SLS 

6b 

kcunt-o 

5* 

kPlt.0 

6/ 

00  9 IJ-1.85 

6» 

9 

LOISi I JI»,-i 

6s 

HEAD  7. TITLE 

0036 

70 

7 

F0HMaT(2OA6) 

0036 

71 

print  8, title 

0036 

72 

S 

FCRf1AT(  iHi.SOAAi  10x> 'LOAD  MODULE  S79TEST  CREATED  6-17-76  1 ////  ) 

7 3 

PRINT  12 

0036 

7* 

12 

format i 2X . > Control  data  **•**, /2x. ' code  no.'.sx. 

0036 

76 

l iRSTIOE i #7X1  'XPRS ' . 7X# ' xNcaSE ' #7X. 'XPlUT • »6X.  ' ATMCK  > ) 

0036 

76 

t 

RLAO  61  XrODF.RSTlME.XP-'S,xNCASL#XP(.1ir.ATMCX 

0037 

77 

PRINT  6,XrODEiRSTlME/XPPS.  xNCASE.  XPLi!  t # ATMCK 

0037 

78 

C 

0037 

79 

6 

F6MHaT(6Ei2.4I 

0037 

MU 

NC0DC»Xc0rE*.01 

0037 

81 

NCASE-XNCaSE 

0037 

82 

NOPLcT-XPlOT 

0037 

83 

IF(RSTImE.GT.O.O.6N0.NCOOf.GT.O|  call  «STNT(RSTIME.xPKS,nCODE » 

0037 

8* 

IF  (RsTImE  .GT.0.0  1 0T2*0k. L^vtOELTAT 

86 

IF (RsTImE. EQ. 0.01  GO  11  lrc 

M6 

CALL  RStRt (PSTlME/xPRS. 10 ) 

8/ 

IPC-O 

88 

IPAP.O 

17 

GC  To  310 

90 

100 

CONTINUE 

91 

CALL  INPUt 

92 

CALL  PLAStN 

0037 

93 

1F(Nm>  lOnO. 1000.2 

0038 

9* 

2 

0T2  . 2.0.DCLTAT 

0039  96 

OTRAlF  • .5.DELTAT 

0040 

96 

DELTmN-OElTAT 

97 

IF  (RSTImE, GT.O.  ) DT2-<i*  *DFLTAT 

98 

kkupt  • 0 

0041 

99 

JPLOT  -0 

0042 

100 

kpen-o 

0043 

101 

nTEMP-0 

0043 

102 

C (26| 

0044 

103 

DO  135  I-i.NM 

0045 

106 

x 1 1 ( 1 1 ■ Vi  ( I )*ZI ( i l-YZK 1 ,,YZI(  1 1 

0046 

106 

Xl2(l>  • XYI ( I )*ZI ( I l+XZI , I l*YZl( I 1 

0047 

106 

X I3(  I ) • xYI  ( 1 1 * Y2 I ( I l*YI , I ) *XZ I ( I ) 

0048 

107 

mini  • xl  ( I )*YZI  ( I » *XZ  1 ( 1 I.XYI  III 

0049 

108 

X 1 5 ( 1 ) • xl  ( I 1 »ZI( I l-XZl ( I 1 «XZ  1 ( 1 1 

0050 

109 

XI6III  • Xl  1 I l*YI ( I > -X  Y I ( T ,.XYI  ( I ) 

0051 

110 

TEHP.Xl(I|*Xll(n-xYI(II*xl2in-XZI(I)*Xl3(ir 

0051 

111 

IF(TERP-SiNERIllO»llO» 130 

0051 

112 

110 

lF(NT£MP*tO«OI  PRINT  112 

0051 

113 

PRINT  U5.I 

0051 

116 

112 

FORMAT! lM,/////i5Xi THt  FOLLOWING  MASS  ELEMENTS  HAVE  ZERO  1, 

0051 

119 

1 

, 'INERTIA  VALUES'//25X'MAqs  NO ' / ( 

0051 

116 

US 

FORMAT ( 38x> I* 1 

0051 

117 

OELI 1 I 1 - 1 n • E 1 0 

0051 

118 

NTEMp-1 

0051  US 

GO  TO  135 

0051 

120 

130 

OELllH  ■ 1 .0/1 XII  1 1 *XI 1 ( T |.XYI ( 1 1 »XI2( I l-XZI ( I )*XI3( I M 

0052 

121 

135 

CONTINUE 

0052 

1 ?2 

136 

CONTINUE  ' 

123 

C ZERO  ARRAYS 

0053 

126 

TIME  • o*o 

0054 

1 5?. 

NM9  - 9.Nm 

0055 

126 

DC  140  I ■ 1.NI19 

0056 

127 

1*0 

Bl J( II  - n*0 

0057 

1P» 

DC  ISO  1 ■ l.NM 

0058 

129 

OXII)  ■ 0.0 

0059 

130 

192 


t '.MMBBW11HHMIM'  in'iilMBUttiVT  i iinfr  >'  n IIOI— Ni  • <Tm  Ifnfi  I fi 


OT(I»  ■ 

0 

.0 

02H  I ■ 

0 

.0 

DPMllll 

• 

0*0 

0 THET  A ( 

1 1 

■ 0 

OPSId  1 

■ 

0.0 

x*(ll  ■ 

0 

.0 

XVI I 1 ■ 

0 

.0 

X 2 1 I 1 ■ 

0 

.0 

XL  1 I 1 ■ 

0 

.0 

XMIII  ■ 

0 

.0 

XMl)  ■ 

0 

.0 

OPKI  1 I 

n*0 

OPYIII 

0*0 

0P2U  1 

0*0 

DPLI  I 1 

n • 0 

OPHUI 

0*0 

OPNl  I ) 

0*0 

OPIN( I » 

■ 

0*0 

OOJNi I 1 

« 

0.0 

ONINi I 1 

— 

0.0 

X*CC  1 1 ) 

• 0 

.0 

1 ACC  1 I 1 

.0 

.0 

ZACC| I ) 

• 0 

.0 

00  150 

K 

• 1, 

IBS  < I<K 

1 

• 0 

NM  I,KI 

0 

SCI I,K) 

0.0 

CEIKl I, 

K) 

• 0.0 

fspbari 

I • 

K ) • 

00  1 60 

IJ 

■ 1 

XXKI IJl 

0.0 

xxji  ui 

0.0 

XYKi I J) 

0.0 

XYJI IJ) 

0.0 

X2K< IJ) 

0.0 

X2  J I IJl 

0-0 

XLKI IJ) 

0.0 

XLJI IJl 

0.0 

X*KI IJ) 

0*0 

xnji 1 J) 

0.0 

XNKI 1 J) 

0.0 

XNJI  UI 

0.0 

0060  1 3 1 

0061  132 

0062  134 
0063_13*_ 

006*  13b 

0065  136 

0066  13* 

0067  138 

_ 0068.13*.  . 

0069  1*0 

0070  1*1 
C071  1*2 

0072  1*4 

0073  1** 
— flfii»-14» 

0075  1*6 

0076  1*' 
0077  1*8 

0078  1*» 

0079  ISO 

fifi80_lfiL 

0081  158 

0082  153 
.0063  15* 
008*  159 

0085  196 
QM6_lfiI 

0086  158 

0087  15* 
0088-16° 

0089  161 

0090  168 
0011-163- 

0092  16* 

0093  169 
0999— 166- 

0095  167 

0096  168 


gx|Ji i J i ■ o*o 

OYIJl 1J)  . 0-0 

OlIJlIJ)  ■ 0*0  __  _ 

SEIJI  IJl  . 0 • Q 
OEIJi IJt  . 0*0 

DO  160  L * 1 » 6 

SLHOF  I L,  I.j  I - 0 < 0 
XKREFIL,  I . i » -0  • 

FPBAKIL, Ijl-O*  _ • 

Mllj»L|  . 0 
VEE2IL, |J|  ■ 0.0 
oe  ibi  k*i»* 

YIELD) IjiK l-RLANK 
151  PLASDlJiKl-BLANK 

160  CONTINUE  __  . 

K ■ 6*6MQ<; 

00  lf.l  L-i/K 

161  OELFhOILI.O.  _ _ 

oe  165  J . 1,3 

00  165  K ■ 1,3 

165  vEEOoT(j,k>  • 0.0  

C 08  INITIAL  CONDITIONS 
CALL  IClAyMCKI 

c oe  all  the  iaiji  into  dij  

CALL  DOaI.i 

c routine  TmCk  calculates  fhlouency  if  requested  8-12-75  ew 
IFI AtMCk.oT.O. I call  T*iK 
IF  I A TNCk  ■ i,T  • 0 • I 00  TO  16a 


0098  170 

0099  171 
fllOO.A?? 

0101  173 

0102  17* 
0103-17 9_ 

010*  176 
010*  17' 

010A.-17H 

0105  179 
180 

19 1_ 

0106  188 
0107  183 

0107.  H*_ 

0107  185 
0107  186 

18- — 

188 

189 

199  . 

0111  191 

0112  198 
AILLIJ*- 

Oil*  19* 
0115  19» 

fill*.  IJ*. 

0117  19/ 
Ol|7  19« 
0117  199 
0117  2C0 


193 


iF(*tmck-fQ*o»  i ae  to  1&7 
146  aTMCk-O. 

GC  TO  136 
167  CONTINUE 
ERROr-O. 

C*EL  DERlv 

IF  I T 1 ME  . Gt  • PT  I M . AND  • P >1  1 • fit  • 0 • I CALL  PLAYLp 

JPC  . 0 

IPAP.O 

CALL  PKINr 

DO  2oO  I ■ 1 > Nm 

C PRESET  0L0  VAi  UES 
PlNO( I ) • 0.0 
OlNSi I I • 0.0 
R INO { I ) » 0.0 
xCLOl I ) • X ( I ) 
yeLOl I I ■ Y(  I I 
ZeLDt II  • Zl I I 
PRIOlDI I I ■ PHI  II  I 
THEOlD ( I I « THETAII  I 
PSJOlDI I I • psi I I I 
peLOi ii  • piii 
qCLP  | II  ■ Q| I I 
ROLO ( II  • Rill 
UOLD | II  • U| I I 
vOUOi  11  • V|  I I 
wOLOl  II  • Nil) 

c do  ist  step  Ei  ler 

OP  IN i 1 1 « OELTAT*P|I) 

DQINi  1 I • DELTAT»Qi I I 

OR  IN ( 1 I - DELTaT*R|1>  _ J_ 

PIN! I I • rPINI I I 
QINI I I ■ nQINI I ) 

RINI I I • nRINI I ) 

Pill  • Pit  I ♦OElTaT»PJIJT  I I I 
QUI  * Oil  >*PELTAT*UDt1t  II) 

Rl  I I * R I T I ♦DEL  T A T *RQO  T ( l , 

U I I I ■ Ul! )*OElTAT*UDOT(I I 
VIII  ■ VII  I +DEL TAT ♦ VOUT I I , 

Will  * Wit I+OElTAT^WDOTi I i 
OKI  I I • OrLTAT*XDOT< I I 
XI  I I ■ XI  I 1+0X1  I | 

DTI  1 I ■ DtLTAT*YDOTl I I 
Yl I I • Yl I l+DYi  I | 

I I I * DeLTAT*ZDOT  I I I 

zi : i * 7i i i+ozii i 

DPHI I I I • DELTAT*PHl0OT< I | 

PH  X ( I » . pHI ( I )+OPhI 1 1 I 
0 T HE  T * I I ) * DELTAT,THtOOT, n 
THETaIH  . THCTAI I 1+DTHLT* I I I 

opsi  ( 1 1 - del t a t *ps i oo r i i , 

pSH  1 1 . rSi  ( I I+OPSI  ( l » 

200  CONTINUE 

I F | NCODE  • C|T  • 0 I CALL  R3 1 NT ( RST I ME, XPRS, 1 0 I 
C 
C 

190  TIME  • TitE  + DELTAT 
CALL  DERlv 

c this  code  decreases  time  increment  deltat  for  ruptures 

C IT  WAS  [NTROlUCED  TO  HANDLE  INTEGKATION  PHORLEMS  E • W . 2-11-76 
I F | K6UNT • [ Q . 0 I GO  TO  191 
IF  lOELTMN.GE. DELTA!  I GO  T ••  j91 
OtL  T A T «0E|  TMN 
ERH0r-ERR?R*1 

191  lPC-IPC+1 
0T2*cELSv,0ELTaT 
0THAlF-.5»0ElTaT 


.0117  201 
0117  202 
2p3 

0117  2(3* 
20& 

0118  206 
0119  2Q7_ 

0120  20« 
209 

_ _ 0121  210 
0122  211 
0123  2]2 
5124  2H 

0125  21* 

0126  2l5 
0127  216 

0128  21/ 
0129  218 


0131  220 

0132  221 
0133  2?2 

0134  223 

0135  22* 
fl?3«  22b 

0137  226 

0138  22/ 
0139  22“ 

0140  229 

0141  23U 
QA42_?3!_ 

0143  232 

0144  233 

0145  23* 

0146  239 

0147  236 

01*8  ^3/ 

0149  238 

0150  239 
015}  24U 

0152241 
0153  242 
0.154.  2*3 

0155  24* 

0156  2*5 
0157  246 

0158  24/ 

0159  248 
01 6Q  2*9 

0161^  250 

0162  251 

0163  252 
0164  253 
0164  25* 

0L6  4_259_ 

0164  256 

0165  25/ 

0166  258 

259 

260 
261 
262 
263 
26* 

265 

266 
26/ 


IMTiMC.Ga.TMAX)  Go  TO  270  268 

IFIIpC-IPrINTI  310,27.,,c'7n  0168  269 

270  IF|  TIME.Gt.PTIM.ANO.pt  1M. ()E. 0«  I CALL  PLAYLD  " “ 016R  27U 
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, r—  r.\f- 


P»|l  .1  ' l.  -a**qpJpi|AL.'l««« 


185  CONTINUE 

lFtTl»<E.QMRSTlME«*NO«NLOpE*GT.O)  CALL  RSTRT I RST 1 ME, XPRS, 1 0 I 
1PC  - 0 

|F t lNPAP.( U.OI  QO  TO  192 

JPAP.IPAP*!  _ 

IFIIPAP.Lt-INPaPI  GO  to  3,0 
IPAP.O 

192  CALL  PRINT 
310  CONTINUE 

C PREDICT*  NOvfc  DOWN,  AND  DO  DELTA'S 

280  00  3t)0  I ■ l«Ntt  _ 

T • PINO( I )+0T2*P< I I 
PlNOi I I • PINt I 1 
P IN ( I I • T 

OP  IN | I I • PIN! I ) »P  JNO I I I 
T • LINO  t T 1 *DT2»0 ( I I 

OINO(I)  ■ OINIII  _ _ _ 

Q I N ( I I • T 

CQ1N| I I • OINI I 1-QlNOI I I 

T ■ RlNOI | l«DT2*R( I I 

R 1 NO , I ) ■ R IN  I I ) 

RlNIJ)  ■ T 

OR  IN , I 1 • RINI  l I-RIN8  I I I __ 

T • xOLD  I I •♦OT2*XOoT  !> 

XOLD ( II  • XIII 

XI  I I ■ T _ 

0*1 1 I • X, I I-XOLOI I I 
T • Y OLD  I 1 l*DT2»VD0T( I I 

YOLDiII  ■ Y | I | 

Till  • T 

0* 1 1 I • Y, I l-YOLOl I I 

T • ZOLD  I Y I *DT2*ZDqT ( l I _ 

ZBLOi  II  • Z( I I 
Z< I I • T 

D 2 1 1 > ■ Z|lfZOLOII>  _ 

T ■ PHIOLCI I I ♦DT2»PHI00T I t | 

PNIOlOI I I • PHI  1 I I 

PH  1 1 I I ■ T 

OPHI(I)  • PHI ( I |-PhI0LD< I | 

T * THEOLrI I l*DT2*THEU0T ( | ) 

THEOlOUI  - THETA<I>  

THETaIIi  . T 

OTHETAII!  - THETA! I I-THEOlO( I I 

T ■ PS  loLn  • 1 1 ♦0T2*PSID(JT  I j | 

PSIOLOII)  • PS  1 1 I I 
PSI I I I . T 

OPS  till  • PSI I I 1-PSlOLOl I , 

T • POLDI I I ♦DT2»PO0T I 1 1 
peLOi  ii  ■ phi 

pill  ■ T 

T ■ QOLOI I I ♦DT2*OCoT I I I 

geLOt 1 I • Q( 1 1 

Oil  I • T 

T I ROLDI I I ♦OT2*RDoT  I 1 1 

ROLOill  • R I I I _ 

Rill  • T 

T • UOLDI T I *0T2*UD0T I I I 

UCLOiIl  ■ Util  

mil  - T 

T > VOLDI I I*OT2»VPoT 1 1 I 

veLOin  ■ vin  

VIII  » T 

T • LOLOI  I 1*012*11001 1 l I 

M0LO I 1 I • W| I I _ 

Hill  ■ T 
300  CONTINUE 

C _ 

IFITiME-TmAXI  190*190.500 
500  IF  IkRUPT,  0500* 95oO* 5000 

5000  PRINT  200o  _ _ 


271 

0169  272 

0170  273 
27* 

22 9. 

276 

277 

27" 

0171  279 
017*  280 

ai73_2ei_ 

0176  282 

0177  283 
P 178.28* 

0179  289 

0180  286 
QltlL_2&?. 

0182  286 
0183  289 
£}18$  290 

0185  291 

0186  292 

0188  29*" 

0189  296 

QI9Q  2J6 

0191  297 

0192  29« 
Q193  229 

019*  300 
0195  301 
Q126-  3q2_ 

0197  303 

0198  30* 

0121.309. 

0200  30* 

0201  307 

&202  .3Q8 

0203  309 
020*  310 

U*P5_jli. 

0206  31* 

0207  313 
_.__p20R  31* 

0209  319 
0*10  316 
0S1L317_ 

0212  318 

0213  319 
021*.  320 

0215  321 
0*16  32* 

0217  323 

0218  32* 
0?19  329 

0220  326 

0221  32/ 
0*2?  328 
0223  32» 
022*  330 

Q225_33J_ 

0*26  33* 
0227  333 
p??8  33* 

0229  339 

0230  33* 
0«3O_U7. 

0231  338 

0232  339 
J)233.  3*0 
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2000  FORM  a T I 1 H i , 7X<  i5HRuPTURl  NUMMARY/  / I 
PRINT  300o 

3000  FORMAT  ( 1H  <9x<1MI<9X<1HJ<7X<*HT|ME</>  

PRINT  *00n<  I IRUPTIkKT  l<  JRtjPTlKRT  ><  TRuPTlKRTKKRTM.KRUPf 

4000  FORMAT! 1H  <2I10<F10<5I 

5500  IF  IkPEN<iE<01  30  TO  600n 
PRINT  550 1 

5501  FORMAT ( lHt , 7X» 'CONTROL  VOLUME  PENETRATIONS'  //) 

PRINT  550? 

5502  FORMAT  I 1M  , 13X, 'TIME '< 10X, 'MASS'  /) 

PRINT  550  j*  ( T'’EN(K|,  IREMkuK-I.KPCN) 

5503  FCHMATllR  , 1CIX<F10<5<  ll'JI 

6CC0  CONTINUE  7 

IFINCASEm  E.01  00  TO  1000 
GO  TO  1 

1000  CONTINUE 
STOP 
end 

iass  (m:so,loi 

IASS  (MiCl,05,  S 7 9REU I F I 


0234  3*1 

0235  3*2 

Q236_  3*3 

I 0237  3** 

0238  3*5 

023J3** 

02*0  3*7 
02*1  3*8 

02*  j>_3*9 

02*3  350 
02**  351 

02*5_352 

02*6  353 
02*6  35* 

02*2  J55 

02*8  35* 
02*9  357 
025g_358 


ICUP  CI.SO 

SUBROUTINE  oeriv 
IMPLICIT  lEAL»8(A-M,0-Zi 
C MEi  BER  -.AIE  S79RnERV 

C MEMBER  N4M£  S79RD£RY 


C note  PON  OOuBi  E PRECISION  T Test  in  line  006200G0  SHOULD  be  'E1<11_ 
real**  XKn<XKI,XKR,AXK,CMUG,PTH 
INTEGER.*  BLANK<ASTRIL<YIELD<PLAST 
DIMENSION  L0I3I85I 
DIMENSION  RP|3t,DX0(3l 
COMMaN/DLiR/PTuOl 85  »<  TA  <0i 85  I 

C0MM0N/IP¥L0/YICLD|85<*)<PEAST(85<*I  

COMMON/v*rSTP/  OELTMN<UELSV<CEH<EEO<EHOT<ERROR 
1<TMX<TTMX<TTTMX 
COMM, iN/NInTEG/K<1UNt,  LtJIS 
COMMeN/IO£RV/lHUPSW<085)< ipENSW1085| 

DIMENSION  SINC0S(6|<CIJI*5Ol<0*I ( 9 I < DU  I 6 I < OF  I 6 I < D I 6 » < A I A I JT(9), 

1 *PI9l<SIr,F|6<85l<VEE2lb<R5l 
C0MM0N/PNpS/PN|85I 

COMMt)N/DEwlNl/XNBAR<  XPBAR  , yNBAH<  YPBah<  ZNBAR,  ZPBAR 

COMMQN/OEr I N/HEX(5o>< hey  mo | <HEZ1501<AHFTI5DI<VMAX |510 I 

1 <PHl0P|5nl<TMEDP(50l»PSInPl50l<PHlPR,THEPR<PSIPR 
COMMON/Lll.ES/XKSl  1200I.XKR,  1 200  I < NLSFLG I 5 10  I < CHUG  I 120  ) 

COMMON  /BiANKl/  XX | 50 » < XV , 50  I < XZ 1 50  I , XL  I 50 1 < XM 1 50  I < 


0001 

0001 

0002 

..0003 

0006 


1 XMI50I<0pX(50|<0PyI50I<DpZ|50I<0PL(5OI<DPM(S0I<DPN(50I<PIN(50)< 

2 0 1 N | 50  I < R 1 N | 50  I < X 1 1 ( 50  I < X 1 2 1 50  I < X I 3 I 50 1 , X I * ( 50  I » X 1 5 ( 50 1 , X 1 6 ( 50  1 < 

3 XXK I 085 >< XYK t 085 >< XZk < 08s ) < XLK < 085 )< xMk < 085  I iXNKl 085 I<XXJ<085I< 

4 XYJI085I .XZjio85).XLJ(085)<XMJ|085)<xNJ|085I< 

5 DELI (5o)<P0lO150I<W0lD|50I<RBLD(50I»U0LD(50)<VOL0(50)< 

6 RQLU501  .XOlD  I 50).  TOLU  (So),  ZOLD|50|,PINQ|50K01NO|50I<RINB150I< 

7 8XIj(085i<MYlj(085l,OZIJ|c85)< PHIOLO I 50  I , tHEOLDl 56  I < PSlOLDl 50 1 < 

S TPENI085|<TRUPT(085|<UTH4LF 

COMMiiN  /IhLANK/  I JkK,  KPcN  . kRUPT,  1 PEN  I p85  ) < IRUPT  1 085  ) < JRUPT  I 085  ) 

COMMoN/COmALL/  C 1 6.0851  <P,60I<U(  50  I <RI50I  <UI50I<  V150fili(50l<XI  501 
1 Y (50  I<Z1«0 I .All  91, A JI9I<XKREF16<85I<SC 150<3I<XC16I< 

A *X I 3060 1 ■ X 1 1 50  I < 

2r II 50 >< ZI (50 1 <XYI( 50 I<XZI75C<<YZI  1 501 .AIJl 9) <BIJ(*50><0IJ( 765). 

3 0RI|085)  ,0A 1 1*501, VEt( bln 1< ROT (501. PHI (50 I<THETA150I<PSK50I< 

* POST  1 5o I , QUOT ( 50 1 , ROOT  1 5n ) < UOOT 1 50 1 < VUOT 1 50 1 < MOOT ( 50 1 < XDBT 1 50 1 < 

5 TOOT  1 50  I . ZDOT  ( 50 ) , PH  1D0T , 60  > < THEOOT  (501,  PS IDOT  FW1  JT'IHCTdITTSTI 
AXACCtSOl, yACC 1 50 ><Z*CC<50i, AITAji 91, aIDOTI 9 1.FMBARl 6,85 1, 

A OELF MO | 3o60 1 < 

PHI  I J 1 085  > / the  I J 1 085 ) < PS  T I J 1 085 ) < SUMDF I6< 085 1 < T ITLE 1 20 ) < 


1 
2 
3 
« 

5 

6 
/ 
0 
9 

10 

1J. 

12 

13 

1*. 

0005  15 

1* 

XL 

i« 

0008  19 

£03*_  2Q. 
0035  21 

22 

0006  g£ 


0007  2* 

0008  25 

00p9 26 

0010  27 

0011  20 
Ml?  23 


00 13  30 

001*  31 

_00_15 32 

<0017  33 

3* 

< ?5_ 


36 

0020  37 

0021  30 

0022  39 
*0 

JL 


XLBARIS0<3I<FSPBARI50< 31 <VEED0T|3<3), DXI50I<DYI50I<DZI50I< 
OPlNlSol ,0QIN(50l,0RlNl5ni< 


002*  *2 

0025  *3 

0026  4* 
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8 SEIJ(085|/0tlJ(n89>«CEIK(50*3>VTMAX  ~ 0027  »0 

COhMtJN  / tCOM*L/  H*XNi1*MA*I(3S,M*XT8l,  INOP#  0031  46 

A NMi 1GS, JpLOU NPLOt* IPLSX, iPj IPLC» It J, IPLOTIOlO ) • I Q ( 088), JCJ(085  it  0029  47 

B M5i01#Nn(50>31>  ISP(S0»3|»  IJPH|08!>),  lOPLOTlbiOl  0030  4* 

C0hM0N/lC«sYH/NSYH(  20  ) • ISOc  (401  *9 

COMMoN/SDfCO/SOF ( 85)  50 

EQUIVALENCE  ( Si > SInCOS 1 1 ) 1 j ( Cl < S INCOS ( 2 ))  > ( S2/ 8 1NC03 ( 31 1 j 0034  91 

1 (C2»SlNCpS(4 I )< ( Si/S1NC0S( 5)  I ‘ ( C 3/ S I NCOS ( * ) ) j ( VEE I j W VEE21 1 1 I 58 

DATA  ASINjC, BLANK/aH  *#*h  / 

54 


$ IN  ( (j  I ■ OslN(G) 

C0S1G1-  DrOSlQl 
AB$(G)>  0aB3(Q| 

ATAN2(F,G)>  0ATAN2(F<U) 

$URT ( G I ■ rSORT(G) 

ZiHO.O'O 

P I«3. 14iS>s265  35897932<tOC 
P 1 2*  • 50o*P I 
IT  • .200 
ET  a .800 

iFlTlME.Nr.O.OI  00  TO  6 m 
00  7c  Ij  • UlCiS 
SOF ( IJI.O. 
pTHOl I J) *rt* 

YAWO( I J ! * 0 * 

70  1 RUPSN I I J)  a 0 
DO  72  lal.NH 
72  IPENSWIH.O 
C DO  ALL  THE  ( A 1 1 ( (AJ) I 
40  jKal 
JL-I 

DO  lo  I • 1 1 NM 
ARG  a Phi  I I 1 

51  a SINIaRQI 
ci  * cesuRGi 
A«G  - ThEt*(II 

52  a SlNItRG) 

C2  a COSURGl 
ARG  a PS  I | I 1 

53  ■ SIn(»RG) 

C 3 a COSURGl 
DO  4o  J • lit 

IFIABS,SINCOS( J| 1.LT.1.E-10I 
40  CONTINUE 

c 

J P 9*1 1*1  1 

C POVE  A I s TO  cLD  A 1 S 
DO  4 JJ  a 1,9 
A 04 1 ( J* JJ I • BIJtJ*JJ> 

S1S2  a S1.S2 
C 1 62  a C1*S2 
At ( 1 I • C2«C3 
BIJI  J41  1 a Aid) 

A 1 1 2 I • C?*S3 
BlJU*2)  . AII21 
Al|3l  ■ *S2 


0055  55 

_ . 0056  56 

0057  ‘ 57 

0058  5» 

5P51_  5*. 

60 

61 

_ _ 62 

0040  *3 

0041  64 

0042  65 

0043  66 

_ _ . _ _ *7 

68 

65 

0044  70 

0045  71 

0046  72 

_ . _ _ 004 7_  73 

0047  74 

0047  7» 

_ 004g  76 

0049  77 

0050  78 

j 9991 Z.?_ 

0052  80 

0053  81 

0054  82 

0055  83 

0056  R4 

5952 #6 

0058  86 

S I  NCOS  I J I • ZERO  0087  8/ 

__096*  . #8 

0065  89 

0066  90 

9937  _9 1 

0068  92 

0069  93 

0070  _1*. 

0071  95 

0072  9* 

9923 97- 

0074  9* 

0075  99 
.0076.109 

0077  101 

0078  1C> 


C 1 27  | 


BIJI J43| 
A I I 4 I - 
BIJI J>4 | 
A I I 5 1 a 
BlJI J*5| 

A I I 6 I • 
BlJI J*6| 
A I I 7 1 a 
BlJI J*7| 
Aim  - 

BlJI J*8) 
A I I 9 | a 
BIJI J*9| 


a 41(31 
r 1 aS3.SlS2*C3 
a 41  I 4 I 

Ci *C34S1S2*93 
4115) 

S 1 »C2 
a 4116) 

81 »S3*C1S2.C3 
. 41(71 

•S 1 *C3»C 1 S2*S3 
a 4118) 

C 1 *C2 
- 4119) 


.9973.  iOl. 
0080  10* 
0081  105 
-0088. 10* 

0083  107 

0084  10* 
9085  1Q9 

0086  ItU 

0087  111 

0088  lie 

0089  113 

0090  It* 


PP  • PC  I I _ 

Uu  * 0(11 
RH  ■ Rl I | 

(Jl>  ■ U(  I | 

v v • v ( i ) 

p*  • Pin 

XCOTI  • XpOTtl)  

XDOT  i 1 I « A I ( 1| »UU*AI I 4 ) *vy»A l < 7 I »PW 
yOOTl  ■ YdOTiII 

yCOTiI)  ■ A1  ( 2 | »UU*A  1 1 b I «w*A  I I 8 I »PP  _ 

ZCOTl  • 7nOT( l I 

ZDCTiM  > A| ( 3 ) *MU  « A I I6)*vv  + *l (9>*p« 

am,  (^9l 

CS  • Sl/C? 
cc  ■ Cl/C? 

PHDOTI  • rHIOSTII) 

phlOoTin  * PP»Q04CS*S2«R,j*cC»S2 

YHDOTl  • tHE03T(I> 

lHEDt.TlII  ■ nO*Cl-RW»!>l 

psooti  • psinaTin 
ps ( dot < 1 1 » qg.cs+rr.lc 

code  to  Statement  #9  ^ 'Vtdes  longitudinal  symmetry 

:fijk*ot.?oi  go  to  9 

IF  I l.NE.NsYHI JK) > GO  10  9 

JK.JkM 

YCOT ( I 1.0. 

ph i dot i i i .o . 

PS l DOT ( I 1.0. 
pp.o. 

Rfi*0. 

PI  I 1.0* 

ri  n«o. 

ROOT! I 1 .0 . 

POOT { t 1.0  . 

VDOT ( I 1-0. 

YACC( 11.0. 

9 CONTINUE 
CO  A I DO  T NOP 

T ■ pSlDUrl I I »C2 

Tl  • THtD*-,T  ( 1 )*S1-T*C1 

T8  ■ THEDf-T  ( I |.Cl*T*Sl 

T 3 • PHIDoTt II-PSIdOTI Il*s2 

ClJt J*1 )■  -HtJl J*4|*Tl-0Ij| J+7I.T2 

CUI  J*4  ).  BIJlJ+1  ) •T14BI.il  J*7)*T3 

CIJIj  + 7).  8!J(J*1  l»T«I*alj(J*4l*T3 

C IJ I J*2 ) • -BI  J(  J*5|*T1-‘JI  u J + 8I.T2 
CUI  J*5)«  BUt  J + 2)»Tl*BIj(  J + 8I.T3 

C U I J ♦*  I ■ BU(  J + 2|*Tc!-tlI.i(  J*SI*T3  

C IJ I J*  3 I * -BIJl J*6|*Tl-8I.n  J«9)*T2 
CUU*6|*  BUI  J*3)»Tl*UIj(  J + 9I.T3 
CIJI  J*9>.  BIJl  J + 3l*T8-Bl.,(  J + 6I.T3 


CUI  J*4|. 
CUI  J + 7). 

cuijui* 

CUI  J*5). 
CIJI J»®l* 
CIJI J*3|* 
CUI  J*6I* 


CIJI  J*9)«  BIJl  J + 3|*T2-Bl.,|  J + 6I.T3 
IF  I T i ME  ) i0,10.5 
C CORRECT  X,Y,2.PHI, THETa, PSI 

5 XU!  * TT.X(inET*(XOLDlI)tOTI1ALF*IXDOTin+XDOTI^» 

Ylll  • TT*Y(n*ET*(YOLD(I,«OTHALF»(YDOT(il+YDOTiTl 
2(11  ■ TT.Z| I)+ET*i 20LD( I ) .DTHALF* I 2DOT ( IU2D0TII I 

PHUll  . tT.PHI  1 I UET»I  PHIBLDI  I )*DThalE»|PHIDOTI  I ) ♦PHDOTI  ) I 

THETaI I I . TT»THETaI I in T.iTHEOLOI 1 I ♦DTHaLF » I THEffOT I I I ♦THDOT I ) 1 
psim  - tT.PSii  mfcT*IPSl0LO(  I |4DThalF*|PSID0T(  I UPSOOTII  I 
c clear  thl  damping  terms* 

DPXI I I ■ 0*0 
DPT  111  • n*0 
DPJI 1 1 « n*0 
OPU  II  • n»0 
DPMI  I I ■ n • 0 
DPNIII  . r,.0 

10  CONTINUE  

c 00  1000  is  MA|N  PO  LOOP  to  UEt  total  INTERNAL  forces  ano  moments 

ILAST  • 0 __ 

1 JLl J • 0 


ooax.ii.o_ 

0092  IIP 

0093  117 
0 Q9i.  11  • 

0095  119 

0096  180 
Q£1Z_121. 

0098  128 

0099  123 

oioo.  ie» 

0101  125 

01 02  1?P 

0103  12/ 

0104  12« 

0105  1J9 

0106  130 

0107  131 
. 0106  138 

0109  133 
OHO  134 

13111  1 3s 

0111  13P 
13/ 

Qltl  13* 

0111  139 
0111  140 
Olli_i»l 

0111  148 
143 

_ 0111  .M* 
145 
0111  146 

flUl_i*7_ 

0111  148 

149 

__  150 

0111  151 

0112  158 
_JLl-19-l?a 

0114  154 

0115  155 
01}fe  156 

0117  15/ 

0118  156 
J3 119-15*. 

0120  160 
0121  161 
0122  148_ 

0123  163 

0124  164 

0125  165 

0126  166~ 
0127  167 

Ol  28 1 6* 

0125  169 
0130  170 
013|_17»_ 

0132  178 

0133  173 
_ 0134  174 

0135  1?5~ 

0136  176 
0137_17  7_ 

0138  17» 

0139  179 
Q140  ISO 
0141  181 
0148  188 

Q»ia_i9? 

0144  184 
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IJKLIJ  • -36 
IU>t 

oe  looo  Ij  - l.IGS 
IJKLIJ  • IJKLIJ06 
IJKK  - IJkLIJ-6 
ULIj  • I iH  J»6 
I JL  - I JL  I J 

If  I JRUPS* I I J 1 •NE »0 | GJ  '0  aOO 
GB  Til  9 1 0 

900  IF t »BS(IS, F ( 10)) .Eq. IJ)  In. 10*1 
GB  To  100n 
9 l 0 I*  IljllJ) 

J ■ JGI 1J» 

C I F WE  GET  TO  4 Nrw  1 We  bust  „OVE  ( A I ) INTO  Al 
IF|  I.EO.Il*STI  GO  to  30 
20  ILASt  • I 

IS  • 9.(  I. I ) 

DO  320  KS  • 1*9 
IS  • IS»1 

AIDOTIKSI  • Cl Jt IS) 

0 a I I KS I ■ OAI I IS I-BI Jl  IS  I 
320  Al IKS)  • ul Jl IS) 

30  XlJ  > KIJi-XIIl 
y i j • y c j i -Y 1 1 1 
Z I J • Z I J i *Z  I I I 
x I jo  * exrJi i Ji 
y I jo  • oyt Ji I Ji 
zijo  « oz r J I I J ) 

OXIJi i j | . XIJ 

o y i J i IJ)  . yij 

OZIJ(IJ)  . ZIJ 

c 

IS  • 9* ( J.  1 ) 

I JS  . 9.1 f J-l I 
DO  3 ] 0 KS  - 1*9 
IS  ■ I S ♦ 1 

IJS  . IjS*l  _ 

Al Jl KS I • 01 Jl IJS ) 

310  AJIKs)  • al Jl 1SI 
C l«>  INCHiMENUL  DEFLECTION  i.Rf,  AXES 
U • OX(J)-OXII) 

T2  • 0Y( Ji-DVI I ) 

T 3 • DZlJi-DZIlt  _ 

0*01  I ) -T 1 
D*DI2)-T2 
pXDI 3)«T3 

C IS)  TRANSFORM  TP  BEAM  AXES 

T 6*  At  I 1 I.Tl+AI (2)*T2*AI I h*T3-DAI I 1 |»XIJO. 
T5»  aIUI*Ti*AI  I5).T2*AI  U,*T3-DAl  Ul*KlJ8. 
T6-  All7I.Tl*AI(8)*T2*AI  I q ) * T 3*DA  I I 7 i*XI  j6'. 
OH)  • Al  Jl  1 )*M*AI  J|2I  »T5  + AI  J(3)*T6 
0*21  ■ AI.|I*)*M»A!JI!>I*Tr»aIJI6I*T6 
0131  • aIjI7)*T6*AUI8I*Tr*AIJ(9)*T6 
C COMPUTE  CwORO  ANGLES  IN  GRD  AXES 

lF|riJ*NE,0.)G0  TO  21»0  

1F|XI J.EO.O. I UO  TC  2170 
yAW«0«0 

PITCh—aT*N2(ZI  J/Xl  Jl 

go  To  220n 

2170  Y*N»0*0 

PITCm.-PI?  _ 

I F I Z I J • nt , 0 . I GO  To  2200 

PITCh»PI2 

oe  TO  220n 

2140  Y*W.aTan2(YIJ*xIJI 

PITCm».aTaN2iZi J.SqRM  XI J,xl JAY  I J*y  I J I I 
2200  CONTINUE 

C OLO  AXIAL  LOAD  TO  GRD  AXES 
SS2-SlNlPyNOI IJI I 
cc2«cesiPTMni i j) > 

SS3*SIN(YaN0( Ij) I 
CC3«C0S | Y a WO  I IJ) I 

lMAe9,PITCH|.LT*l*C-lnl  HTCH-  ZERO 
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. . 0153 

and  (AiooT)  into  aidot  015a 

_ 0156 

0157 

0158 

0159 . 

0160 

0161 

■ ..  . 0162 

0163 

0164 

fli45 

0166 

0167 

cite 

0169 

0170 

91?  1 

0172 

0173 

9174 

0175 

0176 


0178  222 

0179  223 

22* 

0181  225 

0182  226 

Qiaa_22 

22* 

22S 

2J9 

231 

DAII2I*YIJ0-DA1(3I*ZIJ00185  232 
DA1I5)»YIJ0-DAH6)*2U0Q186  233 
DAI(8I*YIJO-DAI|91*ZIJ00187  234 

0188  235 

0189  236 

0190  237 
23* 

2a» 

240 

241 

.8*2 

243 

244 

2A» 

246 

247 

8.4S 

249 

. . «.  250 

251 

29* 

254 

295 

...  . . 256 

0256  29/ 


« 


1060 


c 
c 

C (9) 


If  (abSiY6U).i.tm«emu)  yaw-  zero 
IF(ABS(SS?I.LT.1.E*10I  SS2-  ZERO 
lF(ABS,S531.LT.fE-lG>  SS3-  ZERO 
trUBS|CC5»  .LT.l«E-10t  rC2*  ZERO 
IF(AbS,CC3|.LTM*E-10I  CC3-  ZERO 
NAN- ( I J-l 1*36*1 
FDX-OELFNe(NAN)  *CC8*Cl-3 
FOY-OELFWu  | NAN  ) *CCa»S!>  J 
FDZ--0ElFmOinAn)*Ss2 
SlORt  PlTrH  AND  YAw 
PTHOf I J ) »p ITCH 
Y ANO  ( Ul-yAW 

COMPUTE  GrD  TO  CHORU  'All 

52- SIN(PITCHI 
C2-C0S(PItCH1 

53- 5INI YA. I 
C3f COS ( YAw ) 

00  1060  ..  A a 3 / 6 

IF ( ABS , SINCOSI Ka ) I -L r . , ,E-10 I SlNCOSIKAI-  ZERO 

RP<1|-C2*c3  

RP(2|»C2*s3 

RPI3I--S2 

COMPuTE  Ci-ORO  COMPONENTS  Dill  ONly  REQUIRED 
TRANSFORM  INCREMENTAL  DlFccT  GRO  To  CHORDAXES 
01 n»RP| l i*DXO( 1 )*RP(2>*0xDI 2>*RPl3)*DX0(3) 


AITAjI 1 ) 
A I T A J ( 2 ) 
A I T A j | 3 > 
AITAjI * ) 
A 17  A J | 5 ) 
A I T A J ( 6 1 

A I TA j ( 7 ) 
AITAJIB) 
A I T A J ( 9 ) 
T 1 
T2 
T 3 


AI I 1 ) *AJ  1 1 ) *M  i 2 ) *AJ|  2 ) *A  I ( 3 ) • Aj(3  I 

A 1 1* )*AJ( 1 )*AI |5)*AJ(2I*AI (6)*a„  Jl 
A I I 7>*AjI 1 )*A1 i8)»AJ(2)*AI (9l*AJ|Jt 
All  1 )-Ajl*)*AI(2)*AJ(5)*AI I 3 I • A J ( & I 
A I U l*Aj( 4 1+AI (5) *AJ(5 l*AI (6l*Aj<6 ) 
ATl7l*AjlAl*AI(Hl*AJ(S»*AI(9)*AJ(6l 
AI(1 l*Aj( 7I*M (2I*AJ|8I*AI (3I*AJ(9T 
AIn)*Aj(7l*AI,5)*AJ(8l*AI(6|*Aj(9| 
A I I 7 ) *A  J I 7)*AI  , b )*AJ(  8 I ♦ A I ( 9 I * A J < 9 ) 


OPINiJ) 

00IN|J1 
ORIN, Jt 

TA  • T1*AiTAJ( 1 t*T2*AX  TAj( 4 )+T3*AITAj(7) -DPINll ) 
T5  - TI-AtTAJI 2I*T2*AITAJ,51*T3«AIT AjtSl-DQINI I 1 
T 6 * Tl.AjTAJI 3(*T2*AITAJ|fc|  + T3*Al TAj(9)-DRIN( I ) 


0296  29* 

025*  259 

0256  26U 
0256  26> 
Q256  262 
263 
26A 

2*“_ 

266 

267 

26* 

269 

270 

JJ\ 

272 

273 

?7* 

275 
0270  276 

27/ 

27* 

279 

280 
281 
282 

0192  2«A 

0193  289 
0196  286 

0195  28/ 

0196  28* 
0197_28?_ 

0198  290 

0199  291 
02pa.  292 

0201  29* 

0202  29* 

0203  295 


0 20*  296 
0205  297 
0206.29* 

0207  299 

0208  300 

0209  3pl 


0210  302 
303 

30* 

306 
0220  30* 

3flL 


C (9RI 

01*1  ■ Al J( 1 )*T**A1J( 2)*T6*AI J( 31 *T6 

0161  - AIj(*1*T**AIJI6(»TByAIJI61*T6  

0I6>-  A1J(71»T4*AIj(8>*15*AIJ(9|*T6 
DOt 1 » -D | 1 )/D£LTaT 
DU  I 2 ) -D 1 2 i /DEL  T AT 
DDI3>-D(3t/DELTAT 
T 1 ■ Pljl 

T2  • Olj)  

T 3 • RIJI 

T*  • T1*A|TAJ( 1 I*T2*AI TaJ( 4 |*T3*AITAJ( 71-PI  1 1 
T5  • T1*A|TAJ(2 |*T2*AI TAJ,5| ♦T3*AITAJ(8)-Q| I | 

T6  • T1*AtTAJ( 3I*T2*A1 TAJ| 6 I*T3*AITAJ1 91-Rl I )' 

OOl*)  • T 4 » A I J | 1 )*t6*»Ij(?)*T6*AIJI3| 

00  I 5 | ■ T**AIJ(*I*t5*AIj(isi*T6*AIJI6I 
DC | 6 | • T4 »A I J( 7 t *T5»A 1 J( « | *T6*A I J( 9 I 
DO  270  K > 1/6 
270  DOlKl  - C|K/IJ|»0D(KI 
C*»i**DVSIGN  IS  NO  LONGER  USED. 

c*»4«*fmbar  has  vrbari i. j/«#l i tn  it  now  17augi9/2|_ 

LOOP  150  INCREMENTAL  FORCE  IN  BEAMS  ****** 

C LOOP  150  REVtSeO  To  PROVIDE  HYSTERISIS-  PIECEWISE  linear  FORCE  320 

C OEFLlCTiOn  CURVES  used.  _ 321 

C DEFLECTION  must  be  COMPUTFD  AT  least  once  ON  EACH  LEO'  OF  LOAD  CYCLE  322 

C ASSUMED*. ..T-0<XKREf(L/IU)>0/VEEIIJLI»0/FM8ARIL/IJ)-0  323 

C VEE 1 1 JL  > > OLD  DEFLECTION  32* 

C A-INCREMEnTAL  DEFLECTION  ■ 389 

C S-NEW  DEFLErTION  RELATIVE  To  CURRENT  ORIGIN  326 

t XKREFiL/IJi-CURRENT  ORIGIN  OF  FORCE  -DEFLECTION  CURVE __3?/ 


0222  30* 

0223  309 
022*_3  JO 

0225  311' 

0226  312 

0227  3 1 3 

0228  31* 
0?29  319 

0230  31* 

0231  31/ 

0232  31* 
319 
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c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


DELFriO  ( I JkL  I * OLD  FORCE  For  K/L  PRODUCT 
FHBARIL/Ijl.  MAX  STROKE  ON  current  LOAD  CYCLE 
XKPvSPR I NftB ACK  DEFLECTION  TO  ZERO  FORCE 
XKS I P TR ) ■ SLOPE  FACTOR  BETWEEN  XKR(PTR>  AND  XKR iPTR*l I 
Y ILLd  < I Jz i > -BLANK 
00  160  K . 1/6 
UKK  • NkK»6 
OELFH-O • 

UKL  ■ UkK  

I JL  > I JL.6 
OF ( K | - 0.0 

DO  160  L - 1/6  

UKL  ■ UkL*1 
I JL  • 1 JL . 1 

T P XK(iJkL»  

IFIT.EQ.O.O)  GO  TO  ISO 
160  A * DILI 

B-A*vEE( IjL|»XkREF(L/ 1JI  

ITN-nLSFLrI IJLI 
ICH-I ITn-i )*10+1 

CHtCK  FOR  TABLES  

1F«ItN.CQ.0|  LINEAR  FORCp 
IFIJTN.EQ.O)  GO  to  1*5 

check  for  load  on  unload  _ 

IF|B.EG.0.0.AN0.XKrEF)L/Ij|.EO«0»OI  GO  TO  195 
IF  I A.GT.O. •AND.B*Lt»0* •OR.A.LT *0* •ANO«0*GT*0» I GO  TO  211 
LOAD  CYCLE  RELATIVE  TO  CURRENT  ORIGIN  A-B-C  ORD-E-F 
check  For  reloaoinq  along  c-d  or  g-f 
1FIABS1B1.lt. ABSIFmBAH(Lztj) I | GO  TO  1«0 

fino  Chug i itn)  _ 

210  AXK-aBS|B| 

PTR-CHUGt lTN) 

IFIAxK'LE.XKRIPTR)  I GO  T/,  120  _ _ 

no  ptr-ptr»i 

IFIAxK.qT.XKRIPTRI  * GO  >0  no 

PTH-PTR-I  

CHUG  1 ITnI.PTR 
NXX-pTR-1 
go  To  1 AO 
120  PTR-pTR.l 

IFIAXK.LT.XKRIPTMI 1 GO  TO  t20 

PTR-pTR+l 

CHUG( ITnI.PTR 

NXX-pTR-1 

check  for  a-b-c  or  o-t-r  _ 

1«0  ICHX.CHUG, ITNl 

IF | ICHX.Gt . ICH ) YIELD! I J. , i-ASTRIC 
If  IIcHX.GtMCH)  PLaSTUJ/i  I-ASTR1C 
IFlB.LT.O.I  GO  TO  >90 
COHPUTE  NtW  FORCE 
OELFh-<B-*KR(PTRI  I*T«*KS!otR> 

IF(IcH»EU.  NXX  ♦ 1 I Go  TG  1A-, 

DC  1-2  NX. I CM/ NXX 
NXN-NX* 1 

1*2  DELFR-DELf M*|XKR(NxNI-XkH(NX) )-T*XKSinX) 

1 *3  OTEMP-OELfH  

cohpute  Increment  ano  save  new  force 

DELFH-OELF M-DELFHOi i jkl • 

OELFhOIUkLI-DTEHP  

CHECK  For  new  MAX  STROKE  and  SET  PLASTIC  indicator 
IF  IB.QT  .FVBARIL*  I J > . ANO  . Dtf  HP  . GT  . 0 • 0 . 0«  • B *L  T . FMB-AR  ( Lz  IJ» 

i .ano.dtEmp.lt.o.oi  fmbar(L/ iji-b  _ _ 

GO  To  2 20 

2 1 1 CONTINUE 

UNLOADING  ON  C-d  Or  G-f  FIRST  CHECK  for  new  JSRIOIN 

xKD-DELFMo! I jkl l/T 

OTEMP-VCti I JLI-XKReFILz IJt-XKD 

IF IB.LT.OtEMP. AND.DELFMOI , jkl I .GT.Q.O.OR.B.GT.DTEHP.ANO. 

IDELFhOI IJkLI .LT.O'Ol  go  TO  152 
UNLOADING  LINEAR 


320 
329 
_ 330 

331 

332 

-0233-331- 
0234  334 
336 

.0233336 

0236  337 

0237  33# 
_Q23t_331_ 

0239  3*0 

0240  3*1 
J0eil_342 

3*3 
02*3  3** 

346. 

3*6 

3*7 

341- 

3*S 

350 

35  L 

352 

353 

111- 

366 

356 

35Z_ 

35# 

363 

360 

361  ' 

362 

3*3 

36* 

366 

36* 

367 
36» 

?*3_ 

370 

371 
372 

373 

374 
376 
376 

3Z' 

378 

379 

380 

381 

382 

383 

384 

386 

386 

387 

388 

39?_ 

390 

391 

3?2 

393 

39* 

311- 

39* 

397 


201 


DELFM-OELf  MOt  IjKl  )♦!•*  390 

Y 1ELP  t I J,  i ) “BLANK  "*  399 

GO  Tc  U3  4 00 

195  CONTINUE  401 

C LlNEiH  elfMENT  40e 

0ELFM*T4A  40  J 

OELFMOt  I JxL  LDELFMot  I JKL  I «OELFM  404 

ce  to  z? o " 40s 

152  CONTINUE  406 

C CROSSED  A*IS,  RESET  ORIGIN, MAX  STROKE,  THEN  RELOAD 4fl/ 

XKREf  (L,  1 i)*VCt  ( IJL  l-AKI.'  401$ 

B-AtvEE( IjLI-XKREF (L, IJI  409 

Ff B AR l L , 1 . i ) >3  4j0 

CHUOlITM.ICH  ” ' 4jl 

GO  TO  ?10  4j2 

1»C  CENTIME  4i9 

C RELOADING  ON  C-D  OR  G-F  4} 4 

OELFH-OEU  MOi 1 JKL I ♦ T •*  415 

YlELu ( I J* 1 >*RLANK  4t6 

GO  TO  1 A 3 *1^ 

190  CONTINUE  4 IB 

C l 0 AO  I NG  0,,  O-E-F  419 

OE LfM»« ( ArS ( 9 1 - XK  R 1 P T R ) I *XKS ( PTR )VT  ~~*IV 

IF  I IlH«E').NXX*1)  Gf!  Tt>  1*3  421 

DO  191  NX.1CM.NXX  4g2 

NxN*NX*i  " 439 

191  DELF,-t*DtLFM-(X<»INxN)-XKH(Nx)  l»T»XI<S(NX)  4?* 

GO  TO  1*3  425 

220  DFik i-OF t* I ♦OELFM  42b 

; "C  CONTINUE  427 

CO  530  K > 1,6  0279  42» 

SlGF(K,IJi»SIJH0FCK,lJI  0279  *2* 

630  SLHDF ( K, I j ) . SUMDFtK'IJI  * OF  I K I 02R0  *30 

C TFIS  IS  A TEST  FOR  COMPRESSION  OR  TENSION  IN  BEAMS  SPECIFIED  431 

C BY  I jPUT  ARRAY  IS0FI40)  432 

IF  | Time  .Eo»0«0*  OR,  lO.or  • *n.OR«  ISOFi  Ii3t  *£0.0  I GO  TO  {,3*  *33 

iFIIsOF(In).fiT.O)  GO  10  633  43* 

lHHP»-lSt:F|  I D » - 435 

IF ( I j.NE • I TEMP  1 GO  to  o34  436 

SCF  ( I JI*Sr,F  ( T Jl  *|5F  ( 1 I 43, 

SLMDF  11,1  il.RPt  ( I J | 4 3 B 

IF  1 SUF l I J ) «GE « 0 • 0 • *N0 • SUMnF t 1 , 1 J ) "GE . 0 • 0 I GO  TO  620  *39 

Ge  Tr  621  440 

633  IF ( Ij.NE* fSOFt IDI  I GO  TO  *34  44, 

SOF  I 1 JI.SfF  ( I J | 4DF|  1 I 442 

SUMOFt  1,  t.|)«SPF(  I Ji  443 

IF ( SpF ( IJ) • UE • 0 • 0 ■ AND ■ SUMpF ( 1 , I J I • LE • 0 * 9 I GO  TO  620  *** 

621  SLMD)  I 1,  III -0  • 0 445 

OF  I 1 ) *0 , 0 4 46 

00  6p3  K*i»6  447 

D0IK)"O*0  448 

623  CONTjNUt  449 

*20  1 D • I P ♦ 1 450 

C444*»4C0MpUTE  THE  ENERGY  Ht RE  huT  ADD  IT  AFTER  23j  (NO  RUPTURES) £1281  *51 

63*  SUMSt  *0,0  *52 

SUMDE*0«0  02*1  * C 9 

C • * * * * * 00:. 'T  Use  AN  IJ  tF  It'S  a OR  I ELEMENT  02*1  *5* 

IF(IjPR(Ij).NE.9LANK|U0  T»  632  02*1  *55 

00  *31  K * 1 , 6 02*1  *6* 

SUMSl*SUMsE*.54(SUmDFIK,  I.i|4S1GF(K,  IJ)  I*D1K) _52#l  *9/ 

6J1  SUMDE-SUMcE40D(Kl*CtKI  ‘ * _46« 

L 02*1  *59 

c 02R 1 **0 

C 02*1  *A1 

632  |Jl*  lJL-6  0281  *62 

DO  230  L • 1,6  02*2  *£3 

IJL  • I JL4I  02*3  *6* 

T • *EE(I.iLI*0(LI  02*4  *6* 

vEt(IJL)  . T _ _ 92*5  4|6 

C MOVE  OF  TO  D FOR  (13)  ETC*  * “ 02*6*67 
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o n o o n n 


DILI  ■ DFiLI  0287  *6* 

IFIT.LT.0.01  T--T  

IF  II l6 IS  I t J> .EQ.O« AND- T •Lt.VMAX| 1 JL | | .OR. IRUPSWI I J I . NE  . 0 ) 470 

I GO  TO  23n  471 


47* 

THE  FOLOWINO  code  DOHN  to  STATEMENT  I 230  NAS  ADDED  BY  473 

tD  W.  8-5-76  474 

|T  IS  INCREMtNTAi  RUPTURE  CRITERIA  _NHICH  RgPTURES 479 

AN  ELEMENT  IN  b STEPS  and  CAUSES  DECREASE  IN  TIME  476 

INCREMENT  TO  handle  INTEGRATION  PROBLEMS  47/ 

LOISi  IJI-i  OlSt  I J 1 ♦ j 470 

lFlLOlSdjl.EQ.ll  kOUNT-KouNT  + 1 " 475 

IFiL0IS(Ij).EQ.1I  PRINT  265<  Ud/J«TIME  480 

XLOlS-LOlSl 1 J I 481 

0ILI-I5.-)(L01S|*.2«D(LI  ' 48* 

lFlLOlSdjl.LT. 51  GO  '8  2-,o  483 

264  I RUPSN I I J I • I 484 

XXIll  • XX< I l-XXKI IJI  ' ~ 0292  489 

XYIII  * Xyl I l-XYKI IJI  0293  486 

X2  d I • X?(  I l-XZKI  I Jl  Q?.l»_4fl7 

XLd  ) • Xl(  I l-XLKI  I J I 0295  480 

XPdl  • Xnl  I l-XMKI  1 Jl  0296  489 

XMIl  • XnHI-XNKIIJ)  0297  490 

XXIJ)  • Xyl JI-xXJI I J 1 0298  4gl 

XTIJ)  • Xyl JI-XYJI IJI  0299  492 

XZI  Jl  ■ X/l  JI-XZJI  IJI  S200^4S3_ 

XL  I J I • X,  ( JI-XLJI  IJI  ' 0301  494 


XMIJI  • XHl JI-xMJI IJI 
XM  Jl  * X,.l  JI-XNJI  IJI 
KHUPT  ■ KftUPT+1 
IRUPT (XRUpT  > • I 
jRUPT I XRUp T ) - J 
TRUPT(KRUpT)  • time 

PRINT  Io4n»  TIME/ I J. I » J»  L#  VEE I I JL I > VMAXI IJLI 
xeUNT-XOUNT-I 

oe  To  loon 
230  CONTINUE 

SEIJI IJI  » SEIJI  I J I * SUMSE 

IF  I YIELD!  I J» 1 I . NE • aSTR I C I DC  I Jl I J I-DeI J< I JI+SUMDt 

9876  IF (IjPR(Ij) .NE. BLANK  I DR  I | I J I --6 . 5bDo» VEE I I JL-b I 

C LOADS  AT  J<<<<<  BEAM  10  Grq  AXES 

A I A l jT I I I • Al  ( 1 I - A I J 1 1 I ♦ A I (4  I * A I J I 2 ) + A I (7  I . 4 I J I 3 I 
A I A I jT  I 4 I • A I d I*aI  jl  4 1 ♦*  I ( 4 I * A I JI5  I *AI  | 7 I *Al  Jl  6 I 
A I A I jT (71  ■ Al i l 1 * A I J I 7 ) + 6l | 4 )*A!Jt8)+AI (7 ) * A l J ( 9 j 

A 1 A 1 jT  I 2 I - Al  I2I*aI  J' 1 I ♦*!  (5I*AI  JI2|*AI  (8l*AlJOI 

A 1 A I jT I 5 I • Al t 2 I * A I Jl 4 » ♦ a I |5 I *AI JI5 ) *AI (8  I • A I J I 6 > 
AlAljTlei  ■ Al(2l*AlJI7l*Al(5)*AIJI8dAI(8l*AlJ(9) 
AlAljTO)  ■ Al  (3I*aUI  1 I*AI  I 6 I *A  I J I 2 ) ♦ A I (9l*AlJ(3l 
A I A I jT I 6 I • AI|3I*aIJI4I**I(6I*AIJ(5|*AI(9)»AIJ|6) 

A I A I jT I 9 I ■ Al I 3 |*Al Jl 7 )4aI |6 l*AI JI3 I4AI (9 |*Al j|9l 
C I13AI 

0*01 1 l-Ol  d 

DUI-O. 

T 1 • AIaI jT (1 I.DI 1 |*AIAIJT| 4 l*D( 21+AIAl JTI 7 1*01 31 
T2  • A1aIjT(2I*0(1)*AIaI Jt|5I»DI2)+A1aIJTI8I»DI3)_ 
13  4 AlAljT(3l»0lldAlAIJT(6l»D(2l*AIAlJTI9l4b(3l 
C OELTA  AxIaL  FORCE  COMPONENTS  QRD  axes 
rOY-DELFMBlNAN|*C2*S3-FDY 
FDX-cELFMn I NAN  I *C2*C3-FuX 
E0Z-«DElFmO|NAnI*S2-FUZ 

Olll-Tl 

0I21-T2  ” 

0 1 3 1 -T3 

C 1 1 3B I _ 

T l ■ aIaIjT(II*D(4)*AI ATJt ( 4 I *D ( 5 I *A I A I JT I 7 I *0 1 6 ) 

T2  ■ AlAljT|2l»Dl4)«AlAIJT|5)40|5)4AIAlJTIS)*DI6) 

T 3 ■ AIaIjT 131 *D(4|*aIaIJti6I*D(5I4aIAIJT(9I *0(61 
01*1  • Tl 
0161  - T 2 
016)  - T 3 


0302  499 

D303  496 

0304  497 

0305  498 

0306  499 

0307  500 
501 
50* 

0311  50 3 

0312.504 

0312  506 
50* 

Q313  5fl7 

508 
0314  509 
0315  5 1 0 

0316  511 

0317  51* 
0318  513 

0319  514 

0320  515 
0321  5J6 

0322  5 l 7 

0323  5l» 

51?. 

520 

0324  521 
03?5  522 

0326  523 
52* 

5 2b 

52*' 

527 

528 

S2»" 

630 

0330  531 

0331  332 

0332  333 
0333  634 

0334  636 

0335  83* 
0336  6|7 
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C CRD  AXES  t°  MASS  "" 

0( 1 1-0(1 l+FOX 
0 ( 2 • *0 ( 2 I *FOY 
OOI-OOUFOZ 
c (l7AI 

oxx  • •(Aj(1)*0(1I+AJ(2I*0|2)*AJ(3)»0(3I| 

DXY  - -<A.|<*l¥D(l>+Ajl6')*0(2>+AJ(i>*D(3>  I 
DXZ  • -<A,|(7)*D(i)+AJ(8)*n(2)+Aj(9l«0(3)| 

XX  ( J ) • Xx(JI*OXX  

XY(J)  ■ XylJI+OXY 
X2 I J ) » XZ(JI*DXZ 

xxjiiji  • xxj(iji*oxx  

XY  J ( I J ) • XYJt [JI-oXY 
X2 J( J J)  « XZJI I JI+OXZ 

c ( 1 7 B ) 

CXL  • -(  A.,(  l >*D(«  I *AJ<  2l*n(5l+Aj(  31*0(6)  ) 

CXr  ■ -(Aj(H)*0IAI*AJ(5I*D(SI*AJ(6)»D(6) | 

CXN  • -(Aj(7)*f)(A)*AJ(8l*n(5l*AJ(9l*0(6l  | 

XL  I J I * Xl(JI+DXL 

XMJl  ■ Xm(J)»DXH 

XMJl  • Xf..(J)*OXN 

XLJIIJI  • XLJI1J1+0XL 

XMJl I Jt  - XMJl IJ)*nXM 

XNJdJ)  • XNJdJI-OXN 

lF  dJPRdJI*NC*BL»N<l  Gm  TO  700 

C 11*81  

C CHECKING  FOR  PINNgO  8EAMS  1-8-76 

IF  I Pf.  ( I J I . NE  • 0 • 0 I GO  10  699 
01*1  • 0(*>  - Z I J*0 ( 2 I ♦ Y 1 J*0 ( 3 ) 

0(51  • 0 1 «i » ♦ ZIJ*Dll>  * XIJ*0(3) 

0161  • Olfcl  - YIJ*Od>  ♦ XIJ*0(2) 

C (16*|  

699  CONTINUE 

OXX  - * I ( i » »0(  1 I ♦*!  ( 2 I»l/I2  | ♦*!  I 3 I *D(  J ) 

CXY  • AI U I «0 ( 1 I * A | (5) *D( 2 |**I 16 1-0(3 | 
oxz  • AH7>*0lldAI(8l*UI?|»Al(9I*0(3l 

XXI l)  > X x ( I I +OXX 

XY I I ) • Xy ( II+DXY  

xz ( 1 1 - X7(  n*oxz 

XXK(IJ)  • XXKdJdQXX 

XYK ( l J I ■ XYK ( I J I -oXY  _ 

XZKdJ)  • XZKIIJdOXZ 
C 11681 

DXL  • Aid  l*D;*l+AH2l*UU)yAK3l»D(6>  

OXM  ■ AI I* I »D( » ) *AI 15 1*0(5 ) *AI 16) -0(6 t 
CXN  • AI  ( 7 >«0(  * » ♦ A I (»l*0(M  + »I  (9)  *016) 

XL  1 1 ) • Xi  (I  I *OXL  

XM(  I I • Xnd  I*OXM 
XN I I I - XN(I)*OXN 

XLKdJ)  ■ XLKdJdOXL  _ 

XMKI I J I • XMK ( IJI»OXM 
XNK I I J I - XNK I | J)*oXN 

C 1 6 A ) 

700  CONTINUE  • 

c if  Dampinq-o  bypass  to  27? 

IF (YIELD! |J»1I.EQ»*8THIC»WH.C(1<1J>.EU»0.)  GO  TO  272 
T1  - AIaI.,T(  1 1.00(1  )*AlAl.iTi*>*DOI2]*AlAIJTI7)*OOI3) 
T 2 • A!aIjT(2)*DD(1>*A1AIjT(5)*DDI2)+aIAIJT(8) *00 ( 3 ) 
T3  ■ AI  Al.iT  1 31*001  |I*AIAIjt(6I  *00 1 2 1 ♦*!  AI  JT  1 91*00 1 3 1 
001 t I ■ Tt 
00121  ■ T ? 

0013)  • Ti  _ 

C 168) 

T 1 * AlAl.jTll)*D0<*)*AIAl.lT(*l*00(9|*AlAIJT(7)*0D(6l 
T2  • AIaIjT(2)»0D(»)*A1A1jTI5>*D0(5|*aIAIJTI>I *001 6 1 

T3  - AIaI.|T(3I*DDU)*AI»I.it(6)*DDI5)*aIAIJT”(9)*DD(6) 
001*1  - T, 

00(5)  • Tg  

00(6)  • T* 

C ISA) 


53* 
539 

5*0 

5*1 

0337  5*8 

0338  5*3 

0339  5«« 
03*0  5*5 

03*1  5*6 

03*2  '5*7 
03*3  5*8 
03**  5*9 
03*5  550 
03*6  551 

03*7  _5S2 

03*8  553 
03*9  55* 
0350  565 

0351  556 

0352  56/ 
035J  55* 

035*  559 

0355  56« 

0356  561 

0357  56* 
-.0368  563 

56* 
565 

. 56* 

56/ 

56* 

Q362  _56» 

570 
0363  571 
_ _ _0J6*_  57* 

0365  573 

0366  57* 
0367  575 

0368  576 

0369  57/ 
037fl  57* 

0371  57* 

0372  580 
0373  581 

037*  58* 
0375  5|3 
5376.51* 

0377  515 

0378  58* 
0371.51 L 

0380  58* 

0381  589 
0J!2_5JO_ 

0383  591 
59* 

!1I 

038*  59* 
0385  595 

pjyji* 

v 0387  51/ 
0388  59* 
Q183_M1- 

0390  600 

0391  60l 
8l9Z_40i- 

0393  603 
039*  60* 
0395  6Q5 

0396  60* 

0397  607 


204 


no 


c i sat 


OXX  . -(Aj(  1I*D0<  1 ,*AJI2>«D0I2UAJ(3|*DD)3|  I 
0*t  ■ - t A J I 4 I *DD  ( 1 I *A<J  I b I «D0  I 2 ) * A J I 6 I *00  (3  i~)" 
0X2  ■ -|Aj(?)*00 (1|*AJ (81*00 (2I*AJ<9) *00 ( 3 ) ) 

OPXIjl  . f)PX  ( J ) *D*X  ...  

OPT  I J t ■ nPV I J ) *DXr 
0P2IJ)  - cPZ ( J I *0X2 

CX|.  ■ -(A|(1|*00(4|*AJ(2I  *00  < 5 I * A J(  3 ) *00(4 1”  I 
0*N  * •(A.iI4)*DD(4)*AJ<5>*dD<5>+AJ<6>»00(6)  I 
DXN  • -I Ajl7)*0DI4)*AJI8)*D0l5>«AJl9)«D0l6LL 
OPUJI  ■ OPL(J|*OXl 
OPMj*  • nPM(Jl*OXn 
OPNIjI  * r.PN(J)*OXM 

IF  (IJPRdJl.NE.Rt-ANK)  0<i  TO  1000 
171 

CHECKING  for  PINNeO  BEAUr  1-8-76 
IF(PNI Ij) . HE. 0.0)  G«  10  2(20 
001*1  ■ On  I * I - ZIj*00(2>  ♦ YIJ*pU(3) 

ocist  - orjibi  * zij*oum  . xij*ootj> 

00161  ■ Do ( 6 1 - Ylj»00(tl  * X 1 J*00 ( 2 > 

C ((A) 

2120  CONTINUE 

OXX  . A I { i l«DD( 1 )*All2l*0ni?l*AI ( 3 ) *00  I 3 I 
0*Y  • A I l«)*DOl 1 ) ♦ A I I 0 ) *0n | 2 I * A I (6)* 00(3) 

0X2  . AI(7l*00(l)*Al(8l*0n)21*AI(9t*oa(3) 
opx ( i i ■ nPxi i i*pxx 
OPT  I 1 I ■ nPY I I ) *0X Y 
DP2I 1 1 • rPZ( 1 1*0X2 

C 1(B) 

OXL  - All,  l*P0(*)*Al  l2l«On(S»*Al(3l*t,o(6| 

OXN  ■ AII*)*0D(*)*All0)*00(5)*AI|6l*00(6i 
OXN  • AI(7)«00(*)*AT|8)*On,5>*Al,9).DDI6) 
OPUII  • CPL<I|*0X|_ 

OPNIIl  ■ OPN ( I ) *DXN 
OPN I I I ■ nPN ( I ) *OXN 
272  CONTINUE 

1000  CONTINUE  " 

1 8*9* I InDp-1 ) 

00  loio  Kr-1,9 
IS*IS*1 

1010  AP(USl*Blj( isi 
C FINISH  CnHPuT,NU  DERIVATIVES 
00  2oOO  U1*NM 
IS  - 9»( 1.1 ) 

00  330  KS  ■ 1/9 

IS  • IS*l  • ~ 

AIOOTIKSI  - CIJ(IS) 

330  AlIKsI  ■ nlJlIS) 

C DO  CRASH  FORCES  ' ' 

00  3*0  K . 1.6 
340  XCIK)  - 0.0 


0398  608 


0399  609 

0400  MO 

0401  611 


0402  612 
0*03  61* 
_0  *05.-61*. 
0*05  6lb 
0*06  616 


0*08  61« 
0409  619 
.-0UQ-A29. 
0*11  621 
0*12  622 
623 
62* 

62* 

626 

62/ 

.0*16  62* 
629 
0*17  630 
_fli.18._63J  . 
0*19  632 
0*20  633 
-0*2l_.63* . 
0*22  63b 
0*23  63* 
_fl*2A_ii?_ 


0*25  638 
0*26  639 
, JO*?7_640_ 
0*28  6*1 
0*29  642 
643 


0*30  64* 
0*31  6*b 
_0*32  64  *_ 
0*33  6*7 
0*34  **• 
0*35  6*9 


650 
0437  651 
Q4JB  652 
0*39  653 
0440  65* 

_Q*JLL_6B?_ 


I F I IsPI I* l 1 «EQ* l *eR» ISP( ,»2 I *E0« 1*0R» ISPI 1*31 «E8* i ) CALL  CFORCE 
C 1201* (23)* 12* I 

XA  « WGT( I l-ALIFTt  1 1 

SX  - XX( I |*XA*AI (3)*XC( 1 l*DPX( I ) 

8V  • XY(I|*XA*AI(6)*XC|2I*0PT(I) 

SZ  • X2( I |*XA»AI (9|*XC(3)*oPZ( I I 
SL  • XL  ( I I *XC  ( 4 )*OPL(  I ) 

SH  • XN(l,*XC(5l*0pH(l) 

SN  ■ XN| I | *XC ( 6 ) *DpN ( 1 I 
C OET  P»0*R*U,V.W 


04*2  65« 
0**3  657 
JJ*4*_  658 
0**3  659 
0**6  660 
0*47  6*1 


0448  662 
0*49  663 
0*50  66* 
0*51  660 
0452  66* 
046364 7 


C NASS 


pp 

■ 

P ( I 1 

ec 

■ 

0(1  1 

RR 

■ 

R(  1 1 

Ut 

■ 

UUI 

W 

• 

V ( 1 > 

N* 

■ 

Nil) 

nGT  I 

■ 1* 

2N 

■ 

386. 

0454  668 
0435  649 
_0456_670_ 
0*57  671 
0*58  672 

_e*s!_±9i- 


0460  67* 

0461  676 
J>462  67* 

6**3  *7/ 


ri  n n 


X*CC I I I • SX»WUT I 
V ACC | I I ■ SY*MQT! 
ZACCl 1 I • SZ«WQTI 


0*6*  67* 

62? 


C I 29  > 


UOOTl  ■ UnOT ( I I 

UOOTlII  • SX»Zm-QQ»WW*W<*vv 

VOOTi  • Vr.OT  ( ! I 

yCOT  I I I • SY*Zf1-RR»UU*PP*WW 

6C0TI  ■ ir.OTI  I 1 

wdotiH  • sz»ZM-pp*vv+m-*iju 


C 126  | 


C I 25  I 


T 1 
T2 
T 3 

SL 

SM 

SN 


-xzl , 1 >*PP.YZ| I I ) • -0*71 « l I*RR  + Htz< I I 

XI  ( I i*PP-XYI( I >*UU-X7l ( I 1*RR*MEX( I ) 

•XVl|I|*PP»YI|I l*UU-YZl I I I »RR+HE  t ( I ) 

SL«0i;*Tl  ♦RRoTs 

SM-Rw»T2«PP*Ti 

SN-Pp»T3*QQ»T2 


380 


381 

300 


2001 


CEL  • OELl  1 1 > 

poor i ■ pi-ot  1 1 1 

pCOT(l)  • DEL* (SL»xl l 1 1 l+SM*XI2( 1 l*SN*XI3( I ) | 

tlOOT I ■ Ur-81  ( I I 

QUOT(I)  • DtL*(SL*xl2< 1 > *Sm»X 1 5 ( 1 I *SN»X I * ( J ) ) 

rOOTi  « Root 1 1 1 

ROOT  ( I > • DEL*  (SL*xl3l  I l*SM*XMI  I >*SN*XI6(  J I | 

IF ( T IRE  I ?000. P000.380 

IF ( AflS ( uDr  T I I I ) . OT . 0 • I IERT1-AUSI ( X*cd I l*386*'UD0T( I I l/UDOTI 1 I t 

lF(TESIl.r,T.TRX)TRx*TtbTl  

IF ( ABS( WOpT ( I I I .GT .0.  I TEST  1 -ABS ( (ZACCI 1 I *386 ••HOOT ( I I l/WDOT ( I ) I 
IF  tTESTl  t.T.TMXITMx-TLSI  I 

IF | ABSIUOOTI I 1 ) .GT.TTMX) T T NX- ABS I UDOT I 1 I I 

if  ( ausi  hdpiT  i i i i .ot  . ttmx  i ttmx-absixooti  i i i 

IF  | ABSlQDilT  I I )l  .or.  IT  I MX  ) TTTMX»ABS  ( QDOT  (III 

iFlI.EO.NsYMl JLI > GO  10  3*1  _ 

IF  (ABSlpDpTl  II  I.OT.TTIMXI  T T TMX«  ABS  < P08T  l i fl 
IF|  ABSIRDpTl  I I I.CT.TTtriX)  T T TMX.  ABS  ( ROOT  ( I I ) 

IF ( ABS ( vOpT ( I I ) ,QT .TTMX  >TtMX»ABS( VOOT I 1 I I 

IF  I ACISI  vDnTl  II  ) .GT.O.  I tEsTl*A«S((YACC<II  *386.-V0BT( II  I /VOOTI I II 
IF  ( TEST  1 .r,T.TMx)TMx»TtSU 
CONTINUE 
U ( l I 


0*66  680 
0*67  681 
_0A.68.6j2 
0*69  683 
0*70  68* 
0*71  689 
0*72  686 
0*73  6.8/ 
0*7*  686 
0*75  689 
0*7 fc  690 
0*77  69» 
0*78  692 
0*79  693 
0*80  69* 
0*8 1 696 
0*8?  696 
6*83  69/ 
0*8*  69* 
.-0915.69? 
0*86  700 
0*87  701 
.0*88  71)2 
703 
70* 
JO? 


70* 

707 

708 
70S 
710 

.21! 


TT.U(  I I *ET*  ( UtJLl)  I I , ♦DTMALF*  IUOOK  I l*UOOTI  I I 
T T*  V ( I ) *ET*(  VOl|)(  I i ♦DTMALF*!  VDcjT  ( l I*  VOOT  l I I 
T T»W ( I I *ET* ( POLO  I I i+DTHALF*! ROOT! J l*WDOTI I I 
TT,P(  I I +ET* ( POLO ( I |*0TMALF*(P00T( I l*POOTI I I 
TT,Q(  I ) ♦ET*(OOLO(  I )*DTHALF*(OOtlT(  I |*ODOTI  I I 
TT.Rl I l*ET*lHOLO( 1 )»OTHALF*(ROOT( J ) ♦ROOT J I I 


7»2 

713 

71* 

715 

71* 

-217 


V I 1 > 

win 
pin  • 

0(11 

Rill  _ 

PlNID  • tT*PIn| I I«ET*IPIno( 1 l*DTMALF*IP( I UPOLDI I II  I 
QlNI  1 I . tT*QJNI  I >*ET*ll*lNOl  1 I*DTHALF*IQ|  1 l*QOLDI  1 I I I 
RINIII  ■ y T *R I N I I I *ET» I RI NO  I 1 I *OTMALF* I R I 1 1 fROLDI I I | I 

code  to  statement  «2ooi  provides  longitudinal  symmetry 

lFUL.GT.pO)  GO  TO  2001 

IF|  I .NE.NbVIK  JLI I GO  10  2ool  

JL-JlM 

VOOTI I 1.0. 

VI l l«0.  ...  

PHI  I I 1*0* 

Pi  I l»0«0 

N ( I l-o.  

PlNI  1 )■(]• 

HINIII-O" 

PDOTlII.O.  

ROOT ( I I »0 . 

CONTINUE 

IF  I ( I PENS* < I I .NE'Ol "OR* I I.EQ* INOPI.CR* I INDP.EQ.OJJ 00 

Ct;NTRO|  VOLUME  PENETRATION  CALCULATIONS 

TP l*x I I > - » I INDPI 
TP2-YI I I “v I INDPI 
TP3*Z I I I -7  I INDPI 


TO  8000 


0*90  718 
0*91  71S 
0*92  720 
0*93  721 
0*9*  722 
_fl*95_J23 
0*96  72* 
0*97  725 
.0*98.726 
0*98  72/ 
0*98  728 
_J?  *18-783 
0*98  730 
0*98  731 
0*98  7J2 
0*98  733 
73* 

-0*98.236 

0*98  736 
0*98  73/ 
-0*98  738 
0*98  739 
0*98  7*0 
_8*li_  7 * 1 

0500  7*8 

0501  7*3 
0»02.  7»* 
0903  7*5 
050*  7*6 
0505  7*/ 


206 


r.  o 


XPI«AP(  1 ).TPl*AP<2)*TP2*Af.(3l*TP3  0606  7*8 

YP1»API*)*TPI*aPI6|oTP2»AP(6)*TP3  0607  7*5 

ZPI"AP<7)»TP1*aPI8|*TM2.Aia<9I*TP3  0608  760 

IF  | (-XnBaR.GT.XPI | .ON. ( XrI .GT.XPB*R| | Gt)  TM  2000  obr«  761 

IF  ( l -YuBaR .GT . YPl ) .0* • ( Yrl .GT • YPHAR II  GtJ  Til  2000  OblQ  / 6* 

IF  H-ZNBaR.QT.ZPI I *07. (Zrl .GT.ZPRAR) ) GO  TO  2000  Ob  U 763 

KPEN«KPEN*1  Cbta  76* 

IPCNiKPENi-1  06J3  766 

IPLN(KP£N,.TIME  06 1 A 756 

IPENSWID.I  0615  757 

PUNT  lotlui  I * T I ME  0bl6  76» 

1080  FORMAT (iHr# I CONTROL  VOLUME  PlNETRATEU  BY  MASS  *a12,’a  T IME» ' i~  0617  757 

1 FlO.b)  0618  760 

2000  CONTINUE  Q5l9  7fel 

1FIK0UNT.NE.0I  GO  TO  200a  - - - Jb<, 

1FITiME.Lt >0. I GO  TO  200*  763 

I F ( TMX  • g i , 0 • 1 TMX»SURHEMflTA2*/TMX)  7$* 

IF  I T TMX.Gr'O.  ) TTMX-S'JHI  (EFQ*2*/TTMX  I 7*6 

IF  ( Tt  TMX.rT.O*  ITTTmX-SUKT  (EE«*2«/T  TTiIX  I 766 

OELSv»OELtAT  7$/ 

DELTaTMTi.X  768 

IF | TtTMx.1  T.TTmX.AnD. I r IMX.GT.O. I OElTAT.TTTMX  767 

IF ( TmX.uT . TTMX .and. TMX.UT. II TMX.ANU.tmX.GT.O. ) OELTaT-TMX  __  770 

IF( (pELTAt/DELSV) .GT.2. IOcLTAT»a.»OELSV  771 

I FIQELTaT/ DELSv.LT. 0.1  I OelTAT«0. 1»DELSV  772 

IFI0ELTAT.LT. DfLTMn IULL I At.DELTMN  773 

IFIDlLTaT.LE.OclTMnI  LR •0r.ERR0R+1.  77 a 

200*  TMX*o ■ 776 

TTMX.O.  776 

T T TMx  *0 . " 777 

266  FORMAT!  U1  / ' B£AM  tLT  NO- ' I*  ' I » * I*  'J-'  I*/  778 

I • RuPTU«F  at  TIME-’  F 9 . 5 1 777 

10*0  FORMATllMn  ' RUPTURE  TIME-i  1PE15.6  *16  l P2E 1 5 • 61  780 

RETURN  0620  781 

END  0621  7Me 

IASS  ( M « SO. L0 I 

IASS  I MS  C 1 . 06/ S79RPR ; F I 


ICUP  CI/SO 

SUBRcUT INp  OOAIJ 
IMPLICIT  REAL*8(A-H»0-Zl 
MEMBER  Name  S79P0OAJ 

NOTE  for  OOuBi E PRECISION  T TqpT  in  state  NO  10504107b  CCHG  to  CIO 
DIMENSION  SINCflS(6).XIM0LD(9.2l#XYZljl(9|,XYZIJJ(9l,PR00(9l» 

1 X I I j ( 3 ) 

OIMEnSIoN  XK3(6»6*oB6I 

COMMyN/RP,  A/CBAR(86l«*0P<g,)|»VUPI50l,ZUP(60l 

COMMON/COnALL/  C ( 6, 086  I . P , 50  I a 0 ( 50  I a H I 60  I a U ( 60 1 , V ( 60  I * * I 50  I » X I 60  I 
l Y|SoIaZ(m0I.AH9|,AJ(9iixkREF<6.R6),SC!60»3)»XC!6), 

A XK I 3060  I .XI  I 50  I * 

2Yl |5o)<Zl |50l<  XYI 150 l<  XZ1 |ROI< YZI (60  I. *1 JI9 I «B1 Jl *60 l«DI J| 765  I# 

3 CR!<085>,OA!<*50l,VEM51n|,WGT(50>.pl)I<5a|,THETA!5ol»PS!(50l» 

* PD0T(6o>.QD0T(50)JRDor (5n|,UDOTl50l,VOOT<S0)ANDOT(5O>»XD0T(50)» 

S YOB T I So  I < ZOOT 1 50 ), PM I OUT 1 50 ) * ThEOOT ( 50 ) a PSIDOT ( 60  I a T 1ME,  OELT  ATa 
6XACC(S0)ivACC(50l»ZACCl50|<AlTAJ|9l<AlD0TI9l»FMBAR(6iH5l, 

A DELFMO 1 3p60 1 A 

7 PHUJ(0*5lATHEIJ(o*5lAPSllJ(085lASUMDF|6A086»ATltLEt20)A 

8 XLBaR(50,3|aFsPBAr(50a3),vEed0T!3'3|a0X|50Ia0Y|6O|,OZ(50Ia 
8 CplN(5o>,DOIN,50l,DHINl5n|A 

8 SEIJ(o8S)aO£Ij(pbS>aCEIK!Soa3Ia  TMAX 

COMMON  / 1 COMAL/  MaXNMa MA« j OSa MAXTBl . I NDPa 
A NM» IQS, JeLOTaNPLOTa IPLSW, IP, IPlC a 1 a Ja I PLOT  I 01 0 ) A 1 0 1 Q85 ) , JQ | qB8 I a 
B MSIOIaNn 160/31  a IsPI70a3|, I JPRI086 I, IOPLOT (OiOl 
ESU I V ALENrE  | XTHOLO! 1< 1 I a XyZ I Jl I 1 I I a I XTHOLDI 1 A 2 I aXYZI JJI 1 I I 
ECUlvALENfE  ISi.SInCOSU I ,, I C 1 a S I NCOS  I 2 » 1a  I S2/S 1NC0S I 3 > ) 


0001  1 
2 

j 

0002  * 
0003  6 

Q00»  6 

0005  7 

8 

a 00  1 7 7 

10 

...  _l» 

t E 

0020  13 

00?I  J* 

0022  15 
16 

1' 

002*  16 

0025  17 

0026  gll 

0027  21 
0020  22 

_002?_I3 
0030  2* 

0023  26 
_ 002Y..  ?6 
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50*3 

S3 

0050 

5* 

tGUlvALCNCt  I C2t  S I NCOS  ( * ) ,,  | S3,  S INCOS  I 5 ) ) * (C3*SINC0S(< 
ECUIv«LENcC  (XK( 1 l,XKJ(l* , , l I 1 

S IN  I G ) • DsINlO)  

CASIO)*  DrOSlGl 
SCRTtGI.  l'.SQRT(G) 
aBSIG)*  DaBS(G) 

ARSiMGl*  DARSIN(G) 

A TAN^ ( F , G | « DA  T AN2 t F*  □ I 

ICLD.O  

DC  IlOO  I • 1»NN 
*RGTH|  ( I | 

Sl*SlN( aHr) 

OfCeSURr.i 
*RG»IMET*i I I 
SZrSINURq) 

CZ-CuSUHrt) 

AHGapSl I I I 
S3*S 1 N l »RR | 

C3rCPS  I *Rf,  I 
ce  lc*5  J ■ | # 6 

IFIAbSISI  .COSI  JM  .tT.Pt-iO)  S I NCOS < J I «0 • 0 

1085  CONTINUE 

J*9*l 1*1  I 

C ReVE  APS  TO  »>L0  APS 
00  1090  Jj  • 1,9 
1090  e*p J*JJ| 

S 1 S2«S1 «S? 

C1S2.C1.S? 

B 1 J I J A 1 l»r2*C3 

B I J I J*2 ) «r2*S3 

BlJ< J*3)*.S2 

BlJIJ  + A|-.Cl*S3*S)SH»>-3 

eiJU'*5i«ci*C3*sisa»s3 

BIJ< J*6 )»sl*c2 

BlJ<J*Tl*«il*S3  + ClS?*C3 

BlJIJ*B|".Sl»C3*ClS2*S3 

BlJI J+9|*Cl*C2 

1100  continue 

c 

00  IclO  1. 1 • PIGS 

51  • SlNIpHI  IJUJI  | 

Cl  • COSIpHIiJi IJ) , 

52  ■ SlNI fHEIJl IJ) | 

C2  • COS( THEIJl IJI l 

53  ■ SlNIpSpJlIJl  1 
C3  ■ COS(pSIIJ( IJ) ) 

00  lOAO  J • 1*6  

lHABSlSIr.COSIJ)  (•lT.Pw-io)  Si  NCOS)  Jl«0*0 

10*0  CONTINUE 

AlJll)  • C2*C3 
A I J I 2 * ■ rZ*S3 
AIJI3I  ■ .S2 

A I J I * I - -Cl»S3*SUS2*CJ  

A 1 J 1 5 ) • fl*C3*S1 »S2*S3 
AlJUl  ■ R 1 *c2 

AIJI7I  • sl»S3*Cl »S2*C3  _ 

AlJISl  ■ -Sl.C3»Cl*S2*SJ 
Al J( 9 > ■ C I »C2 

1 « 9 * C I J- 1 1 

00  lots  J ■ 1*9 
1015  D1JIPJ)  ■ AIJ(J) 

CBIJ»CBaR| IJ)  

1 9 IOIIJ) 

J ■ JGIIJ) 

IF  ( t IOLO.NE.Ol *AN0. ( I .to. IOLO) ) UQ  TO  1120 

IS*9.(I-1,  

00  1110  Jj  ■ 1*9 

IS»IS*1  

1110  All Jjl-Bljl ISI 
1110  IOUO.I 


0025  2? 

0026  2> 

0Q22 2? 

0030  30 

0031  31 
_ 0032 _ J2 

0033  3J 

003*  3* 

00?7 

0028  3* 

0029  37 
003p  _3« 

OOS'l"  39 

0032  *0 

0033 *1 

003*  *2 

0035  *3 

0036 

0037  *5 

0038  *6 

00*8  *7 

00**  *8 

00*5  *9 

00*6_  50 

00*7'  Bi 

00*8  52 


SlNC0S( J). 


AlJll) 
A I J I 2 ) 
AlJOl 
AlJlAl 
Al  JIM 
AIJI6) 
AlJI  71 
A I J I 8 I 
A 1 J I 9 I 


0051  55 

0052 5* 

0053  57 

005*  58 

0055 59 

0056  6~0 

0057  61 

0058 62 

0059  6 J 

0060  6* 

0061  65 

0062  66' 
0063  6/ 

006*  68 

0065  69 

0066  70 

0067  71 

0068  72 
006J  _J  3 

0076  7* 

0075  75 

_ . 007*  7* 

0077  77 

0078  78 

OQ73 79. 

0080  80 
0081  81 
_ 0082  _ 82 
0083  IJ 
008*  8« 

Q0B1_|5 

0086  8* 
0087  87 

I* 

0089  89 

0090  90 
ft9»l  1L. 

0092  5* 

0093  93 

0554 5*_ 

0095  95 

0096  96 
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I 


] S • 9 * I J*  1 > _ _ 

D®  U29  Jj  • 1.9 
JS-IS*1 

1125  AJIJjl  • plJUS)  

AlTAj(l)aAl(l>oAJ<l)tAl(2|*AJ(2|*Al|3)»AJ(3> 
AlTAJl2f»I  I *>*AJI1 1*AI l5(,AJt2)*Al (6)*AJI3) 
a1TAJ|3)»a! I 7I«AJ( 1 I ♦*! 1 M)»AJ(2)*A1 (9)»AJ(3) 
AlTAjl*)«4l  I 1 >.AJI*>**1 l2|*AJ|5>*Al(3)»AJI6l 
aITAj(5|*»I(*I,aJI*Ia*I « 5 I *A J ( 5 > ♦ A I ( o ) *A J I 6 I 
AllAjl6)>At|7)*AJl4>»All8|»AJ|S)«Al|9|»AJt6> 
aITAjI 7|«aI ( 1 I *AJt 7 I *AI ( 2 I »AJ( 8 I *Al ( 3 | *AJ( 9 ) 
aITAjI8)*»I I * ) « A J I 7 I ♦ * 1 l5;«AJI8)*Al I o ) » A J I 9 ) 
aUAJ(9)»*I(;)*AJ(7»**1,8i»AJ(8|*AI  !_?*  J L 


0097  97 

0098  9* 

0099  99 
_QlOfl_UHL 

0>01  10> 
0102  10* 


C COHpuK  D*MpU,G  COEFFICIENT  MATRIX  C 
RRS-I 

00  1312  K 5 ■ 1.2 
JF  US.E0.2I  KKS*J 
xTHOlOI  HkSI-XI  IKKSI 

XTH0l0I2.kS).XYI (KkSi 
XTMOl0<3/xS)«X*I IKkSI 
xTHOlOI*/kS)-XyIIKkS) 

XTH0l0I5»kS I aY I | KKS  > 
xTMOuOI6>kSI>Y2IIKkS) 
XIM0u017»kS|.X/I(KkS) 
xTM0lD<8.kSI.Y/I<KkS) 

1 3 1 2 xTMOlOI9»kS|«2I (KKsI 
C 

PROD  I 1 I.AtTAJI 1 )»Xy*I JJt 1 I.AITAJ 
PNOOi 2I>A|TAjI2 i»Xy2I JJI 1 i.AITAJ 
pAOOl 3t»A t TAJI 3)»XyZI JJI 1 I.Al TAJ 
pROOl A I.A] TAJI | !»Xy2I JJI * I aAITAJ 
pHOOt  5 I ■ A ] T A j I 2 I «Xy2IJJi A i . A I TAJ 
PReOl AI.AtTaJI JIaXvZUJI *i«a!TAJ 
pROOl 7 I.A r TAJI 1 l*Xy2IJJI 7 I *A I TAJ 
pHODi 8 I.A f TAJI 2l«Xy*I JJI / i .AI TAJ 
pR00|9)>A|TAjl3)«XYZlJJi7|«AlTAj 


X»*l JJI  1 l.PRHDc  t |»*ITAJt  1 
xt21jJI2I>frpci?i»a1taj( 1 
XT*  I JJI 3I.PRM0I 3 I »A I TAJ  I 1 
XYZl jJI A I.PRPOl  1 > * A 1 TAJ, 2 
XT* I jjl5 I .PROO I 2 I *4  I T»J<  2 
XT*  | jj(6l.t»RPPi3)*AlT*Jl2 
XT* l JJt 7 I.PROOl 1 I«aIT*Ji  3 
XT*  I jJ(gl.PP'TDl2)»AlTAJl3 
XT* l jJ(91.F«0ni3»*AlTAJ(3 


•AJl&IAAl (3)*AJI6)  010A  1QA 

. A J I 5 ) ♦ A I ( o ) * A J ( 6 t OIOS  10* 

♦ AJ|S|aA1|9|»AJ|6)  .QlOft  JQ* 

»AJ|8|*A1(3)*AJI9)  0107  i o / 

*AJIB|+Al(0|»AJ(9)  0108  10* 

•AJI8|*AI  I9)*AJ19I 0109  109 

0110  11° 

TRIX  C 0111  111 

011211* 

0113  113 
OUA  1 1 A 

ftU9_U?L 

0116  116 
0117  11/ 

01 18. 11*. 

0119  It* 

0120  12U 

- 

0122  122 
0123  12* 

012A  12* 

♦AlTAJ(AI*xY2IJJt21*AITAJ(7l*XY*IJJ(3l  0125  12» 
«AITAJ(5I*xYZIjJ|2)aAITAJ(81*XYZIJJI3)  0126  128 
♦AITAJ(6)»xY*1JJ(2I*AITAJ(91*XyZIJJ131 Ql27_12/_ 

♦ A 1 T A J i A 1 #x  Y*  I J j ( 5 1 ♦ A I T A J ( 7 I *XYZ  I J J 1 6 I 0128  12* 
♦AITAJ<5)#XY*1JJi5|aAITAJ(SI*XYZIJJ16>  0129  129 
♦AlTAJ(61*xY*IJJ(5)*AITAJ(9tAXY*IJJl6'_  0139  1?0 
♦AlTAJ(AI*xY*IJJl8)*AITAj|7l»XY*ijjl9)  0l3l  131 
♦AITAJ(5)»XY*IJJIH1*AITAJ|8|*XYZIJJ<9)  0132  13* 
«AlTAj(6l.xYZIjJ(8l+AITAj(9l»XY*IJJ19l  0133  133 

013A  13A 

♦PR3Ul4l*AIT»Jt*|APR00l7|.AlTAJ(7l  0135  1 3» 

♦P»00l5l»AITAJ(A|*PH00(8t.AlTAJl7l  0136  136 

♦PRa0(6IAAlTAJiAl*PR00191»AITAJ171  0137  13/ 

♦pRa0(AI*AITAJl5)*PR00(7)*AITAj(8l  0138  13* 

♦ P«t10l51»AITAJ(5)  .PR00(81*AITaj(8)  0139  139 

♦PWOO(6l»AITAJlb|APR00(9l*AITAJ(8l  01A0  1A0 

♦ PROD  | A 1»A1T*J16)*PR(J0I7)*A1TAJ(9J 01 A 1 JA1_ 

♦PR00(5I*a| TAJl6l*PR00f 8>*AITAJ(9>  01*2  1A2 

♦ PROO I 6 > »A I T * J | 6 I .PROD ( 9 I .A IT AJ ( 9 I 0lA3  1A3 

__  01*9  19* 

JJtXS)  01*5  IA» 

YZljI(A»*AIjl2l*XYZIjIl/)*AIJ(3l  01*6  1A* 

Y*I  Jl  IS»*AlJt2)AXYZl  JIJ8(»A1J(3J QU2  1$7 

Y*1JI 16 l*AIJI2)*XYZiJI 1 9 I *A I J 1 3 I 01*8  1A* 

Yll Jl 1 *>*AI JISlAXYZI Jl 1 7 )»A1 J(6 ) 01A9  1*9 

yZ1JI(S)*AIJ(5|AXYZIJI(B)«A1J(6I 0150  150 

YZ1  Jl  I6)»A1JIS|  +XYZ1  Jl  19)  »AI  Jt*f  0151  181 

rZI Jl ( A ( *AI Jl 8 I *XYZI Jl 1 7 ) .A  I J|9 | 0152  152 

YZ1JH5>*AIJI8|aXYZIJU8|_»AIJ(9I 0153  ig3_ 

YZUI  (6l*AIJ18|AXYZijI  l>l*61  JI9I  ~ 015*  15* 

0155  159 

|2I*PU00I21*A1JI3|»PR00I3)  _ 0156  15* 

|5)*PR00151*A1JI6I*PR0016|  “ 0157  15/ 

I 8 > *PR0D (8|*AIj|9)*PR00!9)  0158  IS* 

0159  159 

r(XK3(x.x, tjiAiwofi  l iVpSfTJTh  ol*o  1*6 

0161  161 

X«3 1 *0  • 0 0162  162 

,K»IJ)aX1Ij(K-3| i 0163  163 

016*  14* 

0145.16? 

0166  16» 


oe  131*  K<;  ■ 1,9  _ _ 

131*  XY*lj! IkS>«XYZ1 Jl lxb>«XY*t JJtXS) 

pMOO|ll»XY*Ijllll*Alj<ll*xYZIJIlAl*AIjl2l*XVZIJll/|*AIJ(3) 
PROOi  21«X,*1  Jl  | 2 |»6 1 Jl  1 I*xyZI  Jll5»*Al  J121AXYZ1 JIJ81  »Al  J(  3J_ 
PRP0| 3I.X»ZIJI ( 31**1 J I 1 l*XY*I Jl I61*AIJ(2)*XYZ1 Jl (9I.AUI 31 
PROO I A I.Xy*I Jl in»AlJIAl»XY*iJi|A»»AIJI5l*XY21Jll7|»AlJ(6l 
pHOO ( 5 ) • X y Z I j I |2I»aIJIAIAxyZIJ1i5)*AIJI5|*XYZIJIIB)»A1J(6) 
PROO l 6 I aX v* I Jl I 3>»a! J< * >*xyZ1J1 I6)*A1 JISlAXYZIJI I9|*AIJ(6I 
PR(JO(7(.Xv2IJI  ( 1 »*Al Jl  / (♦»yZIJI(A|AAIJ(8)4XYZIJII7)»AIJ(9I 
PRC0|B)«XyZIJ1|2)*aIJI7)AxyZ1J1|5)*A1JIB|AXYZ1JI(8|*AIJ(9) 
pR50i 9I.XVZ1 Jl (3l*Al Jl / >*XYZl Jl (6I*AI J18i*XY*I Jl lSl*AI J19)‘ 
C 

XIIJ|1)>A|JI1  I .PROM  1 I AAl.lt  2 l*PR00(2l  *A]  Jl  3 |*PR00(3| 

Xll  J(2).A>  Jl  A)»PROOI  A >a*1.m5»*PR0D(5I*A1  J 1 6 I aPROD I 6 f ' 

XllJl 3).AiJ(7).PROC( 7I*A1j(8)»PR00(8i*AIj|9)*PR0D;9) 
oe  1020  R ■ 1/3  _ 

1020  C<K»|J>  • .10l800*CBlJ*Cie«riXK3|X,K,  tJlAIWOf  tllVROfliTTl 

oe  1030  X ■ A/6 

IMXII  J(K.3l  .LT.O.Ol  >IIJik-3I*0»0 
1030  CIX/1J)>2.*CBIJ»S0rT|XXJ|x,k/IJ)*X1Ij|K>3| ) 

1010  CCNTlNUC 

RETURN  

ERC 

IASS  IMlSO.LO) 

iass  im:cI/05/S79rtm:fi 
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I  CUP  Cl'SO 

SUBROUTINE  INPUT  ^ 

IMPLICIT  lEAL*8IA-h<0-Z > £ 

C MEMBER  N*MG  S79RInPT  000’  3 

INTEGER**  BLANK  005)4  _ ♦ 

■IEAL.8  LBaR.MU.KE  ' ‘ boo*  s 

REAL**  KR|  15)'9L0PE'X*S<X*j,XKR,Ln~G  0006  6 

OlMENSlQM  VHAX2(6»0*5I  QQQS / 

DIMENSION  XK3(6<6#o85>  0009  8 

COMMtjN/PLOTl/  NaPLeT,NnPT|5,*0),ISCALE(5l,KTYPE(5),NPTC,KPLT  9 

conneN/  stUlE/  subI  i5<20i,plti  iu 

CehMON/IPr/INPAP# IPAP  |) 

CCNMcN/RPi  A/CBaRH51»*OPI50>»YOP(50|,  JDPI50I  \i 

cenwvN/PNoS/pNigsi  n_ 

CePHON/vARSTP/  CELT MN,OELsv<EER,EEU,EKOT, ERROR  i* 

l,Trx, tthx.tttmx  is 

COPNeN  /K7*/  ZG<XGD0T<7Gr>nT<YQD0T'PPR«QPR,RPR QQog  16 

cei1NCN/0P7*/XHu(S0,3)<XKE|50<JI<SI  I 5o<  3 ) < Sa  ( 50'  3 1 < SB  ( 80,  3 ) t ’ J/ 

2 SFIb0'j>.FSPei(50,3l»FSPnF(50»3>  0033  l* 

COPMON/INtG/  INBUF|S0I  < II  n21)<KK(  U|  )<  I R (_1 2 1 )<  JRI  121  )< 003B  19 

1 I0(  121  )<  jQI  I«n<L0(  12i  l<NPQ(  12J  ),  IKCT  0039  ?0 

COMMLN/CO<  All/  C(6,085|,P|»o»'Q(50)<R(50l,Ut50>'V(5o)'K(50>'X|50l<0017  21 

1 T|wGl<Z'S0l<AI,9l,AJ,9l<)(l<REFl6<aS,,SC|5g,  3|<XC!_6j.t 

A XK I 3060  I ,XI (SO )<  23 

£Y  1 1 6C  I <ZI I SO  I <XY I I 50  I 'XZ1 • so )< TZ I (SO )<AIj( 9 )<BlJ(*5o I '01 J|  765) < 2* 

3 OR!  ( 085  1,0611*50).  VEt ( 51 o | < "G T ( SO  I , phi (501,  THET A ( 50  I < PS  1 1 50 ) < 0020  25 

* POOT I 5o > .QDOT ( 50 > ,HOOT ( bn  I ,UOOT ( 50  I , VDOT < 50 ) * “DOT ( 50  I' XOOT » 50 ) » 0021  2* 

5 rOOT  (50  I .Z00T(5C  I <PH10t)T  . aO)' THlOOT  ( bO),PSI00T  (50)  < TIf1E,0ELTAT<  0022  2' 

6XACC(50)<YACCI50)'Z*CL(bO|,AIlAj(9)<AIOOT(9)<FHB*R|6<85)< £8 

A CELFMOl 3060)<  29 

7 PHIJ Jl085l<THEIJ(085)'PSnJI0B5l<SUM0F(6<085l'TlTL£(20l<  002*  30 

8 XLBAR(5Q.3l<FSP,)AR(50<3)tvEES0T(3<3)<DX(3O)<0Y(S0)t0Z(5O)<  0025 It 

8 CPlN(50>.DQIN(50),DHlNt5n|<  0026  32 

8 SEIJ(085)<0tIj(n85)<CElKI50<3),  TMAX  0027  33 

COMMON  / (COMAL/  MaXNM,MAyi6S,MAXTBl, INDP,  _ $025  3* 

A NM< (OS, JpL0T<NPL0T< IPLSR< IP< IPLC< I<J< IPLOTI 010)' 10(085), JG(085)j  0029  35 

B N(5l0  ),Nt.  Ib0<  3)  < ISP(  50<3,,  IJPR(08b|,  IOPLUTIOIO  I 0030  3* 

CCPPCN/DErINi/XNBAr<XPBAR,yN8AR,  YPhAR,ZNBAR,ZPBAR 0028  37 

C0NM:)N/DER:u/HEX{50l,Rt»(5G><HEZl50l.ALIfT(50l'YM'AX|5lbl  003*  38 

1 ,PMiOP(5nl,THEDP(50)'PE  lr,P  ( 50  ) , PH  I PR,  THEPR,  PS  I PR  0035  33 

COMMON/mAjNCF/  I PR  I NT  , 1 '.''LOT  , I BS  ( 50,  3 I _ _ _00)6  *0 

COMMON/  ImT75/  NV  " 0031  *i 

£G11 1 vALENcE  IXKI  1 ),XK3(  1,  ,,  1 | | 0032  *2 

CCM»(,-N/LI«SS/X  <5<  tZOQI'AKBi  1200)'  NLSFlO  1510),  ChUO  1120) *3 

COMMON/ I CfiYM/NSYVlpO)' 150r(*0)  ** 

E6UIyAL£NcE  ( VMAX) 1 ) ,VHAX2( 1 ) | 003*  *5 

O'TA  BLANk/'  '/  0035  ** 

c • •«•  read  in  controls  '*»♦  " 0039  */ 

READ  5200.NM,  I)’RINt,DEL ’At,  TMAX,  INPAP  *8 

PRINT  550i .NM, (PRInT, OELTat, TMAX, INPAP  *9 

5501  Few.  ATI  • MASSES-'  13  'OP/oT-'  13  'DT-'  E12.5  ' THAX- ' E12.5  50 

I 'INPAP-'  13)  51 

L INPUT  MaSr  «>S  IN  aSCENDI,g  ORDER  “ I TM  LONGITUDINAL  SYMMETRY  00*2  52 

READ  6001.  ( NSYM ( ) , JAM , 20  > 00*2  53 

6002  FORMAT  ( 'Oi  ONQI  tDDInAL  S'Mm^tRY  AT  MASSES  NS  YP  ( JM  • ' , /2X,  00*2  5* 

12ClI*<2H>  ))  $5 

60C 1 F0RMaT(20|*I  56 

READ  6001 . 1 ISDf  ( JK ), JK-l, AO  I 5/ 

PRINT  6oOr»  (NSYMI JK ) < JK-, ,201  00*2  58 

PRINT  6003' t ISDFl Jk )< JK-1 .*0)  59 

6003  FORMAT! 'OnEAMS  IN  COMPRESSION  OR  TENSION  I SDF I IGS)ai,/2x,  6U 

120  I I * ' 2p>  I)  t ! 

c ••••  read  i,.  initial  conditions  00*2  62 

RE  AO  53oO.PNV,EEO<EER'EHOr 

IF (E( C.FC.O. )ElO».o01  fc, 

IF (LtR'LQ.O. I CER-o *001  6S 

IF (ErOT.E  ;.0<  ICR0T..001 

PRINT  55*?«EC0,ECR,ER0T  “ - 4, 

55*2  FORM*  T I i INTEGRATION  LONThoLS  AND  ERROR  TOLERANCE', • EEU.',E12>5,  6* 

1'  EE-- • < E ( 2<5< ' CRpT • ' ' L 1? . 5 I *9 
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YGDOT  - ' / E 1 3« 5* * ZODBT  ■l.tl3.5l 
•/E13.5/5X* 'R"  • ' * E 1 3 • b I 
* ' / £ 1 3 • 5/  ' PSI"  iwEla 


PRINT  55*3 

55*3  fORMaT(///2X/ '»**»|NI  UAL  C0NOI  T IONS****  • ( 

NVpPNV 

PRINT  55*fl/NV 

bb  A 0 FCRMa  T I 2X , ' THE  FIRST  NY  MaSSES  HAVE  ZL«0  INITIAL  VELOC I T US • / / 

l bx > 'NV.' , U > 

IF(DELTaT|  5017/5017/5018 
5017  NP  ■ 0 

GO  TP  5o0o 
bOl*  CONTINUE 

IFINm)  50o0/5000/5ol6 
5200  F0RMATI2l!/2E12**/t3) 

5016  NE  ADb300>  *GDO  T , YOOO  T > L ,0,.  t 
READ5300/  PPR/QPR/RPR 
REA05300/  PMIPR/THePR/RSIpr.ZG 
5300  FORMA  T ( 6E  1 2 *5  ) 

PRINT  6502*  XGPOT/YGOOT/Zr.DOT 
5502  FORMAT!'  XuDBT  • ' , 1 Pt 1 3 • * , • 

PRINT  5603/  PPR/QPR/RPR 
6503  FCRMaT(5X,  >P"  .<#,PE13-5.5X# 'U" 

PRINT  650*/  PHiPR,TMEPR»PsiPR/ZO 
56 Q 6 FOHMATii  PHI"  -I/1PE13.S,'  THETA" 

1 5X, 'ZG  • 1 / E 1 3 • 5 ) 

c read  u bulk  data  • •• 

PRINT  5b*i  ' 

56  a 1 F0RMATI///2X/ BULK  D*  TA  **»*'//) 

C READ  HEIGHTS 

Rt AD5600'  ( WGT ( I I / |»1*NM I 
PRINT  550k 

5605  FORMAT  I 'OlEIGHTS' I 

PRINT  550/./  ( I ,WGT(  It#  1*1  ,nM> 

5SC6  FORMATllH  /I3/1PE 15*51 

c read  moments  »nd  Inertia  products 

REA05300*  (XI!  11/ VI!  I !/ZI(  I l/XYK  I>,YZI(  1 1*  XZU  I l/I'-l/NM) 
READ5700*  (XpP| I I/yDP! I )/7DP(I l/I*l/NM> 

5700  FCRMaT ( 3E  « 2 • o > 

PRINT  570 1 

5701  FCRMaT!//, X, • INERT JAS' ) 

PRINT  5507 

6507  FORMAT! 'OT/ IX! I )/ IY< I 1/ 1Z| I )/ IXY! I l/IYZI I), IXZI fi ' I 

PRINT  550a/  I 1/XI  I I )/ Y1  I 1 WZI  1 I l/XYl  , I l/YZl  ( I t/XZI  ( I )/ I«1,NMI 
550*  FORMATllH  / 15/ 1P6E15.5) 

PRINT  570? 

5702  FORMAT!//,X, 'COORDINATES' , 

PRINT  550<) 

5509  FCRMaT!  'Ot*X"i'(I)/Y""(II/Z""(I)'I 

PRINT  551')/  ( I/XOPl  1 l/Y  )P,  1 l/ZOPI  I >/ I»1*NM> 

5610  FORMATllH  * 1 3/ l P3E 1 5 * 5 I 
L**»»*CLE»H  StjM*  ARRAYS  WHILM  Are  SPARSE 
00  5 1 1 0 I • 1/NM 


OOA? 

00*2 


OOA  3 

OOAA 
00A5 
00*6 
OOA  7 


70 

71 
7* 
73 
7A 

75 

76 
7/ 
7* 
7» 
• 0 

*1 

00*9  *2 

0050  *3 

0051  *A 

• 5 

0053  |6 

0Q5»__  6 1 

0065  8« 

0056 

005  7 

•5/005* 

0059 
0059 


*9 

90 

91 

92 

93 

9» 

93 


HtX| I | 
MET! I I 
HE  Z I I > 
PHIDP! I I 
TMEDp ( l | 
PS  1 OP  I I ) 
6110  ALIFtUI 


0*0 
n*0 

o*0  

0*0 
3*0 

0*0  

0*0 

C**aa*READ  POINTERS  TO  NoN-ZERO  angular  MOMENTUM  cards 

READ  5*00.  NI/ | INBUF ( 11/ 1.1/NI 1 _ 

PRINT  5511/  Nl 

6511  FORMAT! 'OtHERE  ARE'/ 13/'  p'S  HAVING  NON-ZERO  HE  OR  •/ 

1 *PMl  " ".THETA"  "*PSI  • ' " • I _ 

iFtNI-CO-r, » 00  TO  5633 
PRINT  5512 

6512  FORMAT! • 0 1 / HEX ( I I /HE Y I 1 l/MEZI  l >/pHI ' i " ( IT / THET A " " ( 1 1 / > 

1 * 'PsI"  ' ' < It  ' I 
t»****NOW  read  '(ON-ZERO  CARUS 

DO  Si 20  I • 1/Nl  

J ■ INBUF/Il 

READ  S3q0 , HEX, JI/hEY! JI/mEZI JI/PHIOPI JI/THEoPI Jl/PSIOP! Jt 


0059 
0059 
0060_  96 

0061  97 

0062  9* 

_0063 99 

006 A 100 

0065  101 

0066  J02 

0067  103 
006*  IqA 
0069  IQb 

I<j6 
107 
007q  10» 

0071  109 

0072  110 

_SP?3_U». 
112 
113 
007A  !JA 

0075  116 

0076  116 

0077  117 
007*  11* 
0079  119 
00*0  120 
00*1  121 
00*2  122 
00*3  123 

0084  12* 

0085  1?» 
00*6  126 
0087  127 
008*  ij« 
00*9  129 
0090  130 

J*?Sl_13L 

0092  132 

0093  133 
£>0?»  it* 

0095  13S 

0096  136 


0098  13* 

0099  139 
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5120  PHINl  550«.  J,  HEX  ( j I , ME  Y ( .1 1 , H£Z  ( J 1 , pMI  OP  ( J t , THEDP  ( J 1 , PSI  OP  I J ) 
C»*«»*READ  POINTERS  TO  NON-ZERO  AERODYNAMIC  LIFTS 
5533  READ  5800,  N I , ( INBuF I II . 1 . 1 , NI I 
5800  FORMAT  I 38 i 2 ) 

PRINT  55l3«  NI 

5513  FORMAT  ( iOtHERE  ARE',13,'  n'S  HavINq  nON.ZERO  LC'S'I 
IFlNl.EQ.nl  00  TO  553* 

C««»*»READ  NON-7ERO  LIFTS 

READ  5600,  (ALIFTI INBUFt I | |,I«1,NI I 
5600  F0RMaT(E1?>0) 

PRINT  551*  

651*  FORMAT ( '01 »LC< I I ' ) 

PRINT  550a,  ( InBUFi I I » AlIfT ( INBUFI I II , I-l/NI ) 

:**«**CLEAR  EXTrRNAL  SPRING  FLAGS  I AND  TM£  ASSOCIATED  DATA  ALTHO  >HIS 
: ShOulO  NrtT  BE  NECESSARY  because  W£  ONLY  USE  IT  IF  THE  FLAQ  IS  1. 

: HOWEVER,  THEY  MUST  be  CLEARED  for  The  Search  WHICH  PRINTS  The  INPUT* 
553*  00  5 1 30  K ■ 1,3 
DO  5 1 30  I • 1,I4M 
I SP ( I , K | . 0 
XLBARl I,K,  ■ 0.0 
XMUI t,K|  . 0.0 
XKEl I,K|  . 0*0 
SIII.KI  • 0.0 
SA|I,K)  ■ 0.0 
SOI  I, K I • 0.0 

SF I I,KI  • 0.0 
FSPOIll.K,  . 0.0 
5130  FSPOFl 1 , K | • 0.0 

.♦♦•♦•READ  THE  rPRINO  STUFF  AND  STORE  IT. 

IKCT  • 1 
print  Join 

7010  FeRM*T I //, X, 'SPRINq  0*IA'! 
print  551n 

6Sl5  FORMAT ( 'Ol/K/LBARI I,KI»MU, I,K)»KE(  I.KI  1 I 
51*0  READ  5810,  M ( IKCT |,KK( IKfT I»LBaR,MU,KE 
5810  FCRMaT<2I-t,6X>3E12.0> 

I • 1 1 I IKC T » 

IF ( l . EU . 0 | GO  TO  5 1 50 
K • KK ( IKc  T I 
iSPdfK)  . 1 
XLOAk(I,K|  • LG  AR 
XPU I I , X ) . MU 
XKEl I , K | , KE 

PRINT  55U.  I»K,LB*H,nu,Kr 

5516  fCRMaTIIH  , 2 1 3, 1 P3£ 1 5 • 5 I 
IKCT  • IKfT*l 

ce  TO  5l*n 

5150  IKCT  • IKCT-1  

IF  I IkCT.Ek.O)  GO  To  553n 
PRINT  55 1 t 

5517  fCRMaTI  'OT,K,Sl(I,Kl,SA|I.K).SB|I,K|,SF(I,KI,FSPOI(I^K|d, 

l *FSPOF( I,K| > ) 

C.....READ  SI,Sa,SB,SF,FsP01,FSpOF 

oe  5160  J • 1,IKCT  

I f llljl 
K ■ KKIJI 

READ  53Q0,  SI  I I , K I , SA I 1,K |,SBI t,KI,SFI I.KI, FSPOI I I , K I , FSpOF I I , K I 


J.JJ 0100  1*0 

0101  1*1 
01C2  1*2 

eio3..iii 

010*  u* 

0105  1*5 
Ol06_J46 

0107  l*/ 

0108  1*8 
Qica_i».9 

0110  150 

0111  151 
0112-152. 

THIS  0113  152 
1.  Oil*  IB* 

INPUT. | 01 13_)5? 

0116  156 

0117  157 
flllLJB* 

oils  IBS 
0120  160 

012J 161 

0122  162 
0123  162 

012*  16* 

0125  16b 

0126  166 
0187  16/ 

0128  168 

0129  169 
170 

171 

0130  172 
2131  172 

0132  17* 

0133  17b 

013*  176 

0135  17/ 

0136  1 7» 

0137  179 

0138  180 

0139  181 
01*0  182 
01*1  182 
01*2  18* 
01*3  18b* 
01**  186 

Q145.ll'. 

01*6  188 
01*7  189 

Ql*8  1*P 

01*9  191 
0160  192 
ftJ51_U-L 

0152  19* 

0153  19b 

F |J,K  I Q15*  19* 


5160  PRINT  5518#  I , K, S 1 1 1 , K I , Sa I I » K I , SB  I I , K I , SF I I , K I , FSPOI 1 1 . K I » 0155  19/ 

1 FSP|)FII,kI  0156  198 

5518  FONMATllH  , 2 1 3,  1 P6e  15  • b I _ 0167  199 

6635  | OS  • 0 — 0158  HOU 

PRINT  5519  0159  201 

5519  FORHaTI  *OtJ,I,  J.PN.PHH  1 , .1 1 , THETA  ( 1 . J I < P91 1 I,  J I I INTERNAL  BEAMS)'!  2Q2 


C READ  INC  l.J.pHl IJ, THE  I J, PS  1 1 . j 
6018  REAO  5*00,  I,J,PN1,PHI1N,ThEIN,PSIIN 
5*00  FORMAT I2l3< *E 12.01 

IF  I I ) 5o5», 5051, 5020 
5020  IG8  ■ IGS.1 
PNIIOSI-P.,1 
IOH08)  - 1 


0161  202 
20* 

25b 

016*  20* 

0165  207 
IQ". 

0166  209 


212 


JG(IGS)  ■ J 

PHIIjIIGSi  ■ PhIIN  _ 

THtljl 1GS)  ■ THEIN  ~ 

PSI(JIIGS)  - PSIIN 

PRINT  5539* IGS, I, J,PN1*PHtiN*THEIN,psIIN 
S5J9  FORMAT ( 1H  1 313, 1P6E 15  *5 1 

ae  To  5ol*% 

c**»**these  k. matrices  are  storfD  by  run,  thus  the  the  l*k 
505 1 kEA0«>300<  I I IXK3(L*K*  I J > * L.  1 i~6  I * K- 1 * 6 1 * l J-l  * lOSl 
PRINT  552n 

5520  FORMAT t *0lJ, I«K«MAtRI*  TOr  INTERNAL  QE AM  IJ*> 

C PRINT  1 E3?*  I OS, 1 0 ( I CiS  I » JU  i I OS  > 

DO  5521  Ij  ■ 1*1 GS 

PRINT  551a*  IQ ( I J I * J3 ' I J I 

C 1237  FORMAT) 1H. 3131 

5521  PRINT  552s*  ( ( XK3  ( L*  K*  * J » . L-  1 ' * ) * *•  1 , A 1 

5522  fORHaTIjM  •1P6E15*5> 

REA05A00*  <CBAR|IJi*U>1*igS1 

C STORE  ’CBaRS1  in  'C'  A H n A y TO  Be  USeu  IN  SUBROUTINE  doaij 

PRINT  5523  

5523  FORMAT) >OIJ*I*J«CBaR( I*J1 i | 

PRINT  552**  IIJ»IG(IJI*oGiiJI*CBaR<IJ>*IJ"1*IGS) 

552A  FORMAT ( lH  *313, 1PEj5*5| 
c,*«**»kr  table  Input 

C IK  OERIV,  TO  SEE  IF  THERE  IS  a TABLE  TOR  A PARTICULAR  IjL*  W£  LOOK 

c at  nlsfuo(IjL)  and  if  it  is  non-zero,  it  hill  be  the  j^ble  number 

C for  THAT  IJL*  WC  STILL  use  SLttPES  AND  INTERCEPTS  FOR  THE 
c interpolation  but  we  hust  find  which  intcrval  in  x we're  in. 

C THIS  IS  HONE  PY  KEEPING,  TOR  faCH  TABLE*  A POINTER  TO  THE  LOWER  X OF 

c the  interval  „e  here  In  at  THt  last  integration  step 

C 1 ! NTEGCR  * 2 CMI  iG  I 30  I ) On  T"t  OpiiU'IDS  THAT  kE'PE  PRORAHLY 

c st III  In  that  interval,  it  wf>re  not  in  that  interval,  we  check 
C ONE  BY  ONE  in  the  APPROPRIATE  DIRECTION  UNTIL  we  tino  the  right 
C interval  and  n£  save  that  in  chug  and  uo  the  interpolation. 

C X 1 1 ) ANO  XINP,;)  TeR  EACH  lAbLE  ARE  PEPLACEO  BV  VERY  LARGE  E35t 
C NEGATIVE  and  POSITIVE  NUMBERS  so  that  we  heed  NEVER  check  For  Being 

C OUT  OT  Tut  TA^LC  AuD  AlSO  S')  nf  n.)N*T  EVER  HAVE  TO  KNOW  HOW  MANY 
C POINTS  IN  The  Table*  (IT  an  ARGUMENT  Exceeds  l.E35  WEILL  BOMB 
C SOONER  Op  LaT,R|.  this  ALtO-S  v£RY  RaPIO  TABLE  SEARCH  ANO 
c interpolation, 

C»****CLIAW  1 * J,  L NO’ILINeAR  SHFFNESS  flags 
MX  I QS6  . fc*M4X IGS 
DC  5010  1 ■ 1*mxIGS5 
5010  NLSTlGt I I • 0 
C *****  I NPUT  KR  TABLE  SPECS 
NC  • 0 

C**»**00  TO  f 0F  TABLES  allowed  , 1 ***«*c 
MXTBLl  ■ H*XTBl*1 
oe  5c90  I • 1*HXTBl1 
READS900*  101  I ) * JO  I 1 ) *LUI j )*NPO| I ) 

9900  FCRHA  T ( * I j ) 

IF | |Q I I | .( 0.0  I 00  TO  5050 
NO  ■ I 

C**«**hUNT  for  f,J  Pair  so  ■>£  C*n  STORE  Nq  in  NLSFlG 
00  5l,30  J • I * I OS 

IT | |Q( I | ,fO. IQ( J) .and* JUl n *E0* JOI J) ) 00  To  SO Vo 
5010  CONTINUE 

C*****NO  BuCM  I.J  pair,  ABORT _ 

pR 1 NT  59 1 0 , IQ  I I I « JQ I I 1 
STOP 

S9|0  FORMATiiMminOn-EXiSTENT  i,j  pair  IN  km  TABLE  SPECS • « 21 5 1 
(.•••••FOUND  it 

50*0  NLSFlGI**! J-l )*LOI I I » - Nq 
5090  CONTINUE 

C*«***TOO  MANY  „R  tables,  ABORT 
PR  IN ( 5920 
STOP 

S920  FORMATIJH^ITOO  MANY  KN  TaBLES')  ~ 

(•••••PRINT  KR  tABLE  SPECS 
5090  IF|NO*CO*n)  GO  TO  553* 


0167  21U 
21feft_£lL 

0169  212 

0170  213 

111 

0172  215 

0173  21* 
017*  21/ 

0175  21* 

0176  219 

0177  220 

0178  221 

0179  222 

0180  223 

0181  22* 
0182  225 

_ 018J  22* 
018*  22/ 
22B 

0185  229 

0186  23U 

0187  231 
0188  232 

0189  233 

0190  23* 

0191  235 

0192  236 

0193  23/ 
019*  23B 

0195  239 

0196  2*0 

0197  2*1 

0198  2*2 
0199.2*3 
0200  2** 

0201  2*5 

0202  2*6 
0203  2*/ 
020*  2*» 
0305 

0206  250 

0207  251 
.0208  252 

0209  253 

0210  25* 
_0t.l  L_U£ 

0212  256 

0213  25/ 
_02l*.  25B 

0215  259 

0216  26U 

0218  262 
0219  263 
_.0?20  26.1 

0221  2*9 

0222  26* 
_ 022326/ 

022*  268 
0225  269 
_02?6.2?U 

0227  271 

0228  272 
0223.273 

0230  27* 

0231  27» 
0232  Sit 

0233  27/ 
023*  27B 
-$?35- 27*. 
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PRINT  S93o  0236  280 

5930  FORMaTMOkR  TABLE  SPECS.  t.J»L»NP'I  0237  281 

pR INT59*0 , 1 10 1 I )*  Jot  I >*LQ|  I )*NPQ(  II*  I*l*N3) 023J2S2 

59*0  FORMAT  UH  »*I5)  0239  2(3 

C****«L00P  TO  RfAD  In  A T*HLE  02*0  28* 

k — 9 2*1 

08  SoTO  I • 1 * NO  02*2  286 

NP  • NPQ( 1 ) 02*3  28/ 

If  ( NP • LE • 1 0 1 GO  TO  5055  288 

C«««*«TOO  i-ANY  POINTS  IN  KR  TABie,  ABORT  ""  - ~ - 02*5*289 

PRINT  598n»  NP  * I 02*6  290 

STOP  Q8*!_29L 

5980  FORMAT! lH, . 15* < POINTS  IN  kR  TABLE  <,13/  < (MAX  IS  lOI'l  292 

C«»««*SET  CHUG  yO  293 

5055  **KUO  _29* 

CHUG ( I I ■ K 0251  295 

ICH  * CHUfidt-l  0252  296 

REAQ5950*  (XKR(  ICH* J I * KN ( j ) , J* 1 , NP > _ 0253.88/ 

6950  FORM/, T ( 2E 1 2 • 0 I 025*  298 

C * « **»pR IN  r TaBi  E 0255  299 

PRINT5960,  IQ(  1 1 , J0(  1 1 «LU1 1)  , ICH  Q256.  3QP 

5960  FORMAT  ( i Hn,  • KR  TABlE  FOR  I,J»L  • 1 » 3 1 5, *X ' T ABLE  fCH»<,lV)  0257  301 

PHINT5970.  |J,xKPIiCH*JI,k«(JI. J-l,up>  025g  302 

5970  F8PMaT(iH  , 13,  1P?Ei5.5  ) ~ 0259  3()3 

C*«»»»CONPuTE  S,  OPES  AND  INFEHCfpTS  0260  30* 

NPM1  ■ nP„1  026)  3<J5 

00  5080  J • 1,-jPMl  0262  30* 

SLORfKRIj)  30/ 

xkS(ich*J|  m slope  026*  3qs 

5080  CONTINUE  ' " 309 

C»»*»«MevE  tNoPplNTS  <WAy  BUT  0266  310 

C XKR(  ICH+I  i-»t>E35  _ 3H 

C XKRI lCH*Np I .1 .£35  312 

50/0  CONTINUE  0269  313 

C»»«»»STAND*RO  \/MAX  ■ 100  027fl  31*. 

5536  oe  5 i 80  I ■ 1*MXIGs6  027l  315 

5180  VM * X j I ) • lf>0*0  0272  3l6 

PRINT  552*  .0323  31/ 

6525  FCHMaT I *01 J, 1/ J, VMaX( 1/ J* i -6  I < I ~ ' 027*  3J8 

I uC T • 0 0275  319 

5170  I JCT  • 1 JrT  *1  0276  320 

HLAO  5820.  IRI  IJCT|»JRI  IJOT)  ‘ 0277  321 

5820  FCHMaT(21-,)  0278  3gZ 

IF  ( IRI  1 jCt  ) .NE.O)  GO  TO  5(70  Q279  323 

I3CT  - IJrT-1  0280  32* 

C«***«REA0  NON-STANDARD  MAXIMUM  DEFLECTIONS  0281  329 

IF  ( I jCT.Er;.oi  GO  To  553/  5282  3?6 

OC  5 j 90  K • 1,1 JCT  ~ ~ * 0283  327 

1 • 1 F*  1 K I 028*  328 

J * JR<KI  0285  339 

C**«**HLNT  for  i , J Pair  |MUST  " " 0286*330 

DO  5210  L ■ 1 * IGS  0287  331 

IF|  I .EQ.  Io(LI  • ANO*  J.EU*  JG(L>  I 08  TO  5220  0288  332 

5210  CONTINUE  0289333 

C«**««N0  SuCH  PaIR,  aBORt  0290  33* 

PRINT  583<w  K*  I * J _ 0291  335 

STOP  0292  336 

5830  FCRMaTI1M(,I3, <TH  l#J  P A 1 R , < , 2 1 3, I ) FOR  VM*X  DOES  NOT  EXIST. *1  0293  337 

Co****FOUND  IT*  READ  A VhAX  CAH0  g29$  3J8 

6220  READ  5300,  IVMaX2 ( M*L I « M»i , 6 • 0295  339 

PRINT  553q,  (L. I»J, (VNAX2,p,L|.M.l»6) ) 0296  3*0 

5190  CONTINUE  0297  361 

C MJPlBT  ■ I OF  plots  , PAX  VALUE  IS  5 3*2 

L PLTT  » TIME  FOR  FIRST  PtOT  3*3 

c nptc  • print  cvclls  per  plot  cycle  3** 

C K TYPE ( L > • SPECIFIES  PLanE*  l-XY,  Z.YZ,  3-XZ  'Hix' VALUE  8fT«5  3*5' 

C ISCALEiLi  - SPECIFIES  SCalE*  0 FOR  EQUAL  SCALE*  l FOR  SCALE  ON  3*6 

C VARIABLE  3*7 

c nmptil,Ii  • masses  listed  to  be  put oN-eACH~f»LliT  36a~ 

c the  Dimension  l imax*5i  refers  to  the  plot  « 3*9 
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C DIMENSION  1 (MAX-AOI  IS  MASS  INDICATOR  WITH  MASSES  _ 350 

C LISTED  I N ANy  ORDER  ~ ‘ ”'351 

5637  if  (NilPLeT  ,UT  . 1 I GO  TO  t»>-00  352 

IF  INePLCT.LE.5l  GO  TO  7i‘2n  35± 

PRINT  8c0? , UOPlOT  ” - --- 

STOP  35S 

7C2C  RtAO  8CC<J.  PLTTaPMPTC  35b 

NPTC-  PnPtC  357 

PRINT  8qO(  .MOPlOT.PLT  I ,'<PtC  35» 


oe  7030  L.l.NCPLCT  35? 

READ  80,-3.  (SU8l(L«JI«J. 1,201  36U 

READ  80,-, A.  KTYPE(L  I.  IsCalE  I L I 381 

HEAD  gOf.A.  (NMPTtL.II. 1.1.A0I  . 362.. 

7C3C  CONTINUE  363 

PRINT  XoO'W  (KTYPE (L I .L* 1 , MflPLUT I 36* 

80CO  peKMAl (6E i 2.6  I 360 

8CC I FCRMaTI  ' number  nr  PLOIS  NOPLtH*  ' » 14/ ' TIME  FOR  First  Plot  366 

X E 1 2 • 6 / . NUMBER  print  Cycles  / plot  CYCLE  .',14)  36/ 

8C02  FORmAT ( . job  TERMINATED  . NUMBER  OF  PLOTS  REQUESTED  GREATER  THA  360 

XN  5 NOPcO  r- ' . U | 3 60 

8CC3  FCRMaT 120. A ) 370 

80C A FORMAT (40121  371 

8005  FORMAT!  ' THE  PLOT  TYPtS  SELECTED  ARE  KTYPE.  '.b(IAI|  372 

6CC0  READ  58cC,INDP  0327  373 

PRINT  553a.  TNnP  0328  37A 

5538  FOHMaT( 'OlNDP  1 3 > 0329  375 

IF  ( I NOP • r Q • 0 I 00  TO  506s  033$  376 

REA05300.  XNBAR.XPnAR.YNBAR.YPBAR.ZNDAR.ZPBAR  ' 0331  377 

PRINT  553r.  0332  37* 


5530  FCRMaTI  '0xN.,Xp-,YN-.TP-.7N-»ZP-'./)  Q333„3;9 

PRINT  552?.  XNBAP.xPBAR,yNpARjYPDAH.Z(jBAR,ZPBAR  033A  380 

5066  READ  5928,  IjPR  0335  3gi 

PRINT  55 3 1 0336  382 

5531  FORMaTI |Hr.3AX, TORI t IJI  INDICATORS',/)  ~ - - ' Q337  3g3 

PRINT  552fc  0338  3gA 

PRINT  5527  8133-3S& 

PRINT  553?.  IJPR  03A0  3g6 

If  |N,*PLfT,LE.Ol  00  TO  6u0n  03A0  38/ 

5532  FORMaTUX.SOAI  | _ Q3A1  388 

C IF  W£  KNOW  HO.  MANY  PLOTS  Wt  WANT,  WE  CAN  PlGURE  OUT  HOW  MANY  POINTS  0342  3g» 

C Per  PLOT  WE  CaN  have.  ALTUO  Wp  onN'T  want  MORE  THAN  500,  BECAUSE  0343  390 

C WE  COULDN'T  N c T ICE  THE  RESOLUTION  ANYWAY. THE  REST  0F_  TH I S_  FIGURES 5344.  391 

C OUT  Hew  1 F T£  N TO  SAVE*  A TRUNCATED  ITPLOT  WILL  TRY  TO  SAVE  TOO  MUCH  0345  392 

C AND  THEN  WE  WOULDN'T  OE T TO  TmaX,  BUT  IF  wE  WOULD  ALMOST  GET  THERE  0346  393 

C IT  WILL  NOT  Be  NOTICEABLE  ON  THE  PLOT.  034Z_3?4 

IF  INPLOT . EQ. 0)  GO  TO  5060  ~ " ’ 0348  395 

IP  • 30oO(i/NPLaT  0349  396 

IF  I ip.QT*  sOO ) IP  ■ 50D  _ _ 0350  397 

FlTER  • TmAX/0ELTAT42*0  ' ' 0351  39B~ 

ITPL5T  . fITEH/IP  0352  39* 

IF(ItPLOT.EQ.O)  ITPLOT  = | _ 0353  4QU 

IF|FITER/|IP»ITPLOT>.DT.1.002)  ITPLOT  ■ ITPLOTM_  ~ 0359  4fli 

5C60  CONTINUE  0355  402 

5000  RETURN  403. 

5526  FCRMaTI l3y, • 1 • ,9X, l2* ,9X, i 3' ,9X, >4' ,9X. '5' ,9X, '6' ,9Xi ' 7,,9X/ '8' I 404 

5527  FCRMaTI 4X. « 1234567g«o 1 2345678901 23456789012345678901 234567890 ' , 4o5 

X'123A5678«0I23A567g90l234Sfc7B90'./l  4q6 

592*  f CHHaT ( 80a 1 ) 40>' 

EM)  0357  40“ 

IASS  (MiSO.LO)  _ _ 

IASS  IMlCI,05,S79RST:n 


icup  ci.se 

SLBROUTINc  PRINT 
IMPLICIT  qEALMIA-h.B-ZI 

c member  name  S79RPRT 


0001  > 
2 

JJO02 l 


215 


INTEGER**  BLANK, AStRIC,XBlANK,  « 

1 YJElD»PL*ST,YIE*PLA*Kl^T  5 

REAL.*  KCt (501,PEI(50l  6 

DIMENSION  VEE2|6,S5I  7 

DIMENSION  YIE<B5)*PLA(8bl,RUPT(85l  8 

CCMMON/PLoT  1 / NBPL0T<NMPT|5,*0),  I SCalE  1 S ) * KT YPE  1 5 ) * NPTC,  KPLT 9 

CCMMeN/ST  I TlE/  SUB  I ( 5, 20  I , PL  T T - j0 

dimension  vvi *0 ) f mh ( *u  • H 

COMMON/VAr STP/  DE(-TMN,UtLsv,EER,EEU,CROT, ERROR  ]2 

l,TMX,TThX,TTTMX  ' JJ 

COMMON/ l Ny  75/  NV  0005  l* 

COMMON/  CoMPLY/PRePIgU*  31^1111*  TMEL(035)«CKPT(08S<*«8I<E»LW (065**10039 J9_ 

COMMON/  IrPPlY/  NEi08bl»Np.SiNlD(oabj,NCP(085l*NS*L3  0039  J6 

COMMON/  PyLO/S I GB (o85» * 1 » TXV t 085, * I , TXZ ( 085, * I , SU (085»*| , SV (085* *10039  17 

COMMON/ 1PvLD/Y I ELO( 08b*  * > . PL*S T ( 085, A I 18 

CCMMe<N/IOrRV/lRUPSw(08b),TPENSW(o8bl  0005"  19 

C ......  10C6  go 

CCMM,<N/INTG/  lNBUP(bOl  » I I i 121  1 'XK(  121  |,  IR(  1?1  I,  JR(  121  I,  0038  21 

1 101  I 21  ), JU( 121  I , LOIlBl | ,Npg| 121 ) , IKCT  0008  22 

COMMoN/COkALL/  C(6,08bl,P(50l,U(50l*R(50l«U(SOI,V(501«H(50ljX(50),OOp  23 

1 Y I SC  I , Z ( kO I , A | ( 9 I , A J < 9 > , xkREF I 6, 85  I , sC ( 50, 3 I , XC 1 6l « ~ ' 2* 

A XKI  3060  I ,X] (50 ),  2b 

2Yl I5C I*ZI I 50  >,XYI (50) »X21 (501, Y2I | bo | , A I j ( 9 ) , B I J ( *50  > * D I J ( 765 ) , 26 

3 081(0851,0/.  11*50  I, VEt(Mf, ),  MOT  (501,  PH  1(50 1, THE  TA(5o)*PSI  (50),  0020  2/ 

* P00T(b0l,O0PT(50l*ROOTl5n|,U0OT(5O|,vU0T(50)*W0OT(50)*XD0T(5O|,  0021  28 

5 VDOT  (So  I , ZQMT  ( 50  >.  PH  1 0>.  T i 5Q  ),  ThCOMT  ( SO),  PS  1 DOT  (501,  TIME,  PELT  AT, Q02g_  29 

6XACC(50l,yACC(50)»2AClHb0),AlTAj(9),AlD0T(9),‘FMBARi6,85)i"  " 30 

A CELFM0|3r60l*  31 

7 Phi  ] J(o8«  I*  THfc  I JI&85  l,l'Si  I JI085  )*SUn'jP(6*08b  I*  TITLE  (20) , 002*  32 

■ XlBaR(50,3),  FSPBAr  ( 50, 3 1 , yEEUOT ( 3*  3 | , Dx ( So  I , OY ( 90  j , DZ ( 50  I , ~~  0025  33' 

8 CPIi.ISo).DDIN(50),OR1NI5oi,  0026  3* 

8 SEIJ(085|*DtIJ(fi85l,CEIKI50»3)*  TMAX gOg2 35 

COMMON  / 1C0MAL/  MAXNM,MAxIGS,MAXTbL, 1NDP7  0020  36 

A NM. lGS,JpLOY,NPLOT* IPLSW, IP, IPLC* I, J, IPLOT (0101, 10(0851, JGI085I,  0029  37 

B M5l0l,h„(SC*3)>  ISP(5Q*3l*  IJPR(08S|,  lOPLOT(QlO)  ()030  38 

ECUIvALENrf  IVEEI 1 )*vt£2( ( I l 0023  39 

OATA  ASlRiC, BLANK, KBLANK/fcn  *, AH  , AH  / AO 

ILlNtS  • tO  gogj 11 

IPL  • 6 0026  *2 

ITTL  ■ 9 0027  A3 

C FORCE  NE„  PAGi  gogS J* 

NPR  ■ lOOr.  0029  AS 

D0»3099  I ■ 1,nM  0030  *8 

IF  I ILlNEs-NPP-IPL)  3O1C»9q2O,3q20 0031 17 

3010  PRINT  3l0o, TITLE, TIME  0032  *8 

3100  FORMAT! 1H| ,20AA,//lH  ,6hTtmE  -,Fl2«8,//lH  , 18X, 1HX, iAX, IhY, 1AX, 1h2,  A9 

113X,3HPhI.11X,5HTHeTA, 1 l X , 3HPS I , / 1 M . i 7X. *HXOOT, 1 IX, *HVOQT. 1 IX, Qg3A JO 

2Ah*DeT,10*,6HPHl00T*8X,8HTHETAD0T,8K,6HPSI00T,/lM  , 1 SX, IHU, 1 AX,  0035  91 

31HV* 1*X, 1MW, 1*x, IMP, 1*X, Iho, 1*X, 1HR,/IH  , 1 7X, AHU0OT, 11X,AHV00T,  0036  52 

AIIX.aHNOOt, UX.AMPoOT, 11X.»hOOOT,11X,AHRPOT./1H  , 16X,6HXACCEL,9X,  0037  83 

56MYACCEl*9**6H7ACCEL,/I  0038  5* 

IF ( error ,qT , o • i print  3io(, error  55 

3101  FORMaTI/’  number  «F  InT  USING  OELTMn- i , Fl  g.  A J__  06 

£RR0R«0.  " “ ~ 57 

NPR  ■ ITTi  00A9  58 

3020  NPR  ■ NPR»IPL  0050  99 

print  too. i,xi n, yi i i,Z( i i ,phi i i ),theta(II,psi( n,  0051  *0" 

1 XOOT|II,Yr,0  Till, Zl>0  Till,  Ph100TI1),T  HE  L)B  Til), PSI 00  T(1  I*  0052  61 

2U(  1 1,  VI  I l,M(  1 1, P(  I | , 0 ( I l,R|  11,  _ 0093  62 

3UOOTlI>,VnCTtII,NPoT<I>*PneT(I>*QD0Ttli*RDOTtI>*  005*  63 

AX*CC|II,YaCC|1),ZAcC|1I  0055  6* 

700  FORMaT(/Im  ,5HhaSS  * 1 2, 2X , 1P6£ 15 .5, /A ( 1H  « 9X, 1P6E15.5, / H 0096  6S 

3099  CONTINUE  0059  66 

PRINT  830  0060  67 

c oo  loops  910*920  Determine  plasticarupture  indicators  fbr  beams ggn if. 

00  9 l 0 K ■ t , I GS  0061  69 

VlE  <K  l*X8i ANK  70 

PLAIk  l*XB|  ank  _ Zl_ 

RUPTlXI.XoLANK  72 

00  920  MM.I,*  73 
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JF(Y1ELD<K'M',>*EQ*aSTHIC>  YIEIK|.AStrIC  

YlEUD(K,Mt.|. BLANK 

if i Blast u< mm) ,eo*astml)  plaim.astric 

920  CONTINUE  

910  1FIIRUPSW|KI.ME.0I  RUPT t K | «ASTM I C 

830  FCRMATI//iH  , • I0(  I Jl  » JOl  I J ) , SUMDF ( 1,  l J),SUMDF(  2,  IJIj  '/AX, 

1  iSUMOFO#  t Jl,  ',3X,  'SUMDF  U,  IJI*  t,3X,  > SUMDF  ( 5/  I J > *1(3*1 

2 ISUMQF I6> » Jl , • ,2X,  ' YItLD' ,px, 'PLASH | 

8*0  PM  NT  8 10,  I 1GI  1J>,JU(1JI,|SIIMUF(K,IJ),K«1,6),YIE(IJ|,PLA(  I J ) , 
1IJ-1,IGSI 
PRINT  831 

831  FORMAT  ( /In  # ' I (>  ( I J > , JO  ( IJ)  , VEE2  ( 1 # Ij),VEE2(  2,  I J ) * 1 , 6X, 

1 • VEE2I  3,  1 .1  > * '<5X<  ’ VEE2I  **  | Jl  * ' »5X,  'VEEMS,  I J),  ' ,SX, 

2 ' VEEP ( 6, I j I , • , 3X#  irUPTUkE  i | 

M*6*lGS 

PRINT  Bll  , ( I Q ( 1 J I i Jli  I IJI,  i VCE  2 ( K,  lJ),Kal,b),RUPT  ( IJ),  1 J.  l , IQS) 

810  FORMAT  I 1H  , IX, I2,2x» I2.2X, 1P6E15<5<2X< A*,2x, A* ) 

811  FCKMaTUH  , IX,  I2,2x*  12, 2X,  ip6e15.5,2>;,A*)  _ 

PRINT  833. TITLE 

833  FORMAT  I lHt,2nA* ) 

PRINT  AOOrnTIMe 
*CCO  FORMA  T ( ' TIME.*  Fl2«BI 

PRINT  832 

832  FORMaTI/1,,  , ' I , SC  ( I*  1 I * SC  , I , 2 I , SC  ( I , 3 I ' ) 

DO  3o*0  I ■ IjNM 

DO  30S0  J ■ 1,3 
IF  I ISP  ( I , J I .NC  . o I aO  TO  3060 
3050  CONTINUE 

GO  TO  30*n 

3060  PRINT  820.  I , ( SC ( I , J I * J“ 1 . 3 1 

820  FORMAT ( 1H  , 17, 2X, 1P3E1S-5, 

30*0  CONTINUE 

ISET.O 

CO  3o TO  I • t*IOS  ~ 

1 F i ljPR|  I | •£*}. BLANK)  U8  Tp  3070 
IF  (ISET.kU.1)  00  TO  3065 
PRINT  821 

821  FORMaTIIM  //IX, 'MASS', 7X, ioRI • I 

ISET.1  

3065  PRINT  822,  JG<I),ORl(l) 

3070  CONTINUE 

822  FCRMaTIIH  , IX, I2.3X, 1PE15.5 I 

SUMMVX-O* 

SUMMVY-O* 

SUMMvZ"0* 

SLMW(iT«G* 

SLMKe 1*0*  o 

SUMPE  I *0  • n 

SUMSEl*0*c 
SUMDe 1 "0  * 0 

SLMCCl-O-n  

DO  3*00  I . 1 , MM 

:*•••*«  DON'T  USE  AM  t If  IT'S  . TO  A J OF  A DRIlIJI  PAIR 

DC  3*08  I,j.l,lQ3  

IF(IjPR(I.|),EO,BLAnK|uO  Tp  3*08 
IF  ( I .NE.  Jr.l  I Jl  IQO  TO  3*08 

PEI  I I l«0*n  

KEI( 1 )»0*0 
00  Tm  3999 
3*08  CONTINUE 

PE  I ( I I <>.Wf;T  (II*  Z ( t > 

SUMPl I»SUmPEI*PEI ( I I 

K£I(I)".5«(WGT(ll*(U(II*U(II*Y(II*V(tl*W(l|*W(l) l/386«0 

1 «P( I >*(P| I I *X I | I >*Q< 1) "Xyl ( I )*R( I ) ,xZ« I I I I 

2 *Q  ( I I * ( P ( I ) »Xy  I ( I 1*01  I i*yi  ( I )*R(  I I » y Z 1 I I I > 

3 *R(  I I • ( P i I 1 »*Z  I ( I )*0(  I ) » y 2 1 < I I *Rl  I 1*21 1 1 1 ) ) 

SUMKt I-SUmKE I *KEI ( I > 

: TMS  TEST  TS  TO  BYPASS  'OmeNTUM  SUMMATION  for  stationary  MASSES 

3999  I F | l , L£ • N v ) GO  TO  3*00 

SUMMvX.SUfMVX  + WQTI  I I *XDl’T  ( j 1/386, 


J* 

7» 

76 

ll 

0061  7» 

0062  7» 
„0Q63  ..BO 

0063  81 

006*  82 
006*  83 

0065  8* 

0066  85 

0067  8* 

0067  8/ 

0067  8" 

0068  89 

0069  90 
0069.  .91 

92 

93 

. ..  9* 

95 

0070  9* 


0072  98 

0073  99 
007*  1Q0 

0075  101 

0076  102 
.0077  _}03 

0078  10* 

0079  105 
0080.  106 

008 1 107 

0082  108 
_0083_  109 

008*  110 

0085  111 

0086  1(2 

0087  119 

0088  11* 
C08!_llb 

0089  116 
0089  11/ 
0089  UB 

0089  119 

0090  120 

eo?L!?i 

0092  122 

0093  123 
009*  12* 

0095  125 

0096  126 
0097  12/ 

0098  128 

0099  129 

0100  130 

0101  131 

0102  132 
0l03_l33 

Old*  13* 

0105  135 

0106  136 

0107  13/ 

0108  138 
SLP?_1J? 

0110  1*0 
Olio  1*1 
0110  1*8 
Olio  1*9 


SOMMvY»SU,iHVY  + WttTI  I )oTD;T  , t J/J86, 

SUMMvZ*SUnMVZ*wGT I l)4Z0MT,i)/386« 

SOMWGT.SUr-WGT  + RGT  I I )/J8o« 

3*00  CONTINUE 

xOBTCG*SUt  MVX/SUHW,jT 
YBBTCG*SUmMVY/SUMWgT 
ZCaicG-SUMHVZ/SUMWGl 

PRINT  3997>SUMMVX, xDfl  I Cu,  cuM'IVY,  YOUTCu, SUMMVZ, ZDOTCG 
3997  FeRMAT I /,?X,  < *****  LINEAR  MOMENTUM  OF  MOVING  MASS  AGGREGATE***** ■ , OU1  152 
*// 

1 JH  , t5X,6..SUMNvx,9x,6»X;.8TCG,'JX,6MSUHl!VY,  10X»  6HYD0TCG/  IOXj 
26H$U'  MV2,xX,6HZD0'1cG,/1M  , 9X,  I P6E  1 • 5 ) 
oe  3406  1.1*1,  IGS 
StMSEl-SUfSEt+SEl J< IJI 
34C6  SLMOt  I-SU'iDEI*OEIJ(  I J » 

I F | iKCT.En.OlflO  TO  3409  

oe  34C7  Ik*1,IKCT 

340  7 SLMCt  I *SLr‘CE  1 4CCIK  1 II  t IK  1 ,KK1  IK>  ) 

3409  cTBT.SUMKt  USUMPEUSUMSEUSUMUEI+SUMCEI 
PLKE-SUMKp I/ET IT 
PCPE.SUmPf I/FTnT 
PCSE.  SUMf.EI/ETllT 
PCCE*SUMDrl/ETnT 
PtCE.SUMCrl/EToT 

PRINT  34Ci  »ET0t,SUmKE1,  -'Um(,EI,SUMSEI,SUMDEI,SUMCEI, 

1PCK£,PCPE  ,PCSE,PCDe,PCC*. 

34c 1 FCRMaT I ///,2x, ' *****  ENERr.y  CALCULATIONS  **»*»'» / / / \H  ,6X, 

1 I TOTAL  ' , 7*,  >KInET  I C * ,b*,  'POTENTIAL  ', 7X, 'STRAIN' ,7X,  iOAMPJNG^ 

2 'CRUSHING!  , /fcX,  'ENERGY  '>b|8X,'£NERGyi)//lX,  1P6E14  .•>,// 

3 ' 0 PERCpNT  ilF  ' , 2pSF  1 4 . 3 /3X,  ' TOT  AL  ENERGY') 

PRINT  340a 

340*  FORMAT ( ' 0 i , bOX, ' INTERNAL', 46X, 'EXTERN ALI/53X, 'BEAM', 49 X, 'SPR1 
I 7X, 'kENETjC ' , 15X, 'pOTLNT IAL ' <26X, 'STRAIN' , I7X, 'DAMPING' ,20X, 


2 'CRuSHINr'/i  mass  energy  PER  CEnT 

3 J I J ENERGY  PER  CENT  ENERGY" 

4GY  PfR  CENT'/) 

MAXEN*MAXc ( NM,  IGS,  I K C T 1 
IF  ( T (ME  .Eti'0,0  )MAX£N»nM 
DO  3410  Io*l,MAXEN 

ioptr-0 

I F ( Io.Gt,nM)GO  TO  3*11 
10PTR*  I Op T R ,4 
PCKt*KEl  I ) 0 ) /SlIMKE  I 
PCPE.PEl  ( 1 0 ) /S'JMPE  I 
IFl'TlME.Eij-O'OlGO  TO  JSC* 

3*11  I F ( lo  »Gt  • 1 GS  I Od  TO  3*12  __ 

iePTR*iePTR*2 
IFISUMSEI.NE’.O.OI  GO  '«  5 

PCSE  • O'fi 

go  ie  b 

5 PCSE  « SE 1 J 1 1 0 ) /SUmSE I 

6 IFISUMUEI.NE.O.OI  GO  10  7 

PCDE  « 0*0 

GO  TO  341? 

7 PCDE  * OE  i J T 1 0 ) /SUftDE  1 
3412  lFIId-GTMKCT)GO  To  3*13 

1BPIR*  lOpTR  ♦ i 

l*  IK  Hi 

K*KK ( 10 ) 

CE*  CEIkT  I » K I 
If ISuMCeI.NE.O.OI  GO  TO  9 
PC CE  « o-n 
Ge  To  341  t 
9 PCCE  * CE/SUMCEI 

3*13  GO  Tc13SO),3So?,3E'03«JS  ,*.35050506,  jS07|,li;PTR 

C. *•*..*  ONLY  Cf 
3501  PRINT  351), I,K*CE,pCCt 
3511  FBRMaT I IOaX, 13, 12, i PE  1 3 • S , ?PF9 • 3 I 
oe  TO  3*1r 
C. «.*.*«*  sE  ANn  OE 


ENERGY 

PER  CENT 


Olio 

1 4* 

Olio 

145 

0110 

1*6 

mu 

147 

0111 

148 

0111 

1*9 

0111 

lbu 

0111 

151 

",0111 

152 

0111 

1 5 J 

0111 

15* 

0111 

15b 

0112 

156 

0113 

15/ 

Oil* 

158 

0115 

159 

0116 

16U 

01 17 

161 

0U8 

162 

0118 

1 6 J 

0118 

16* 

0M8 

16b 

0119 

166 

0120 

167 

.0121 

168 

0122 

169 

012  3 

170 

i 012* 

171 

0125 

172 

0126 

173 

0131 

17* 

/ 0132 

17b 

0133 

176 

. .1.0  13* — 1 7 7 

TER0135 

I7a 

0136 

i 79 

013/ 

ljo 

0138 

181 

0139 

182 

01*0 

-183 

01*1 

18* 

01*2 

180 

01*3 

1.86 

01** 

18  7 

01*9 

188 

01*6 

189 

01*7 

190 

01*8 

191 

01*9 

192 

0150 

1 9 J 

0151 

19* 

. 0152 

195 

015? 

196 

015* 

197 

0155 

198 

0156 

199 

0157 

200 

0158. 

HOI 

0159 

202 

0160 

203 

. .0161 

20* 

0162 

20b 

0163 

206 

016* 

207 

0165 

208 

0166 

209 

0167 

210 

0168 

211 

0169 

212 

0170 

213 

218 


.... 


3502  PRINT  351?, 10, IQ! lO)/JU( Ml/SElji IOi,pCSE,OEIJ< 10),pCDE  0171 

35  1 2 FORMAT  I 5 1 x» 313/  1 PE  1 3/3/ 2PF9  • 3/ IpE  1*  .5, 2PF9  • 3 I 0172 

00  Tj  3*lp  0173 

C»**»»»«t  SE  / Of/  CE  017* 

3503  PRINi  3sll/ JM/ 101 101/ JOi Irtl/SCIJl lOl.PCSF/DEI Jl 10l,pC0E/ I.K/Ct/ OI75 

1 PCCL  ~ ” 0176 

35 1 3 FORMAT  (Six*  31  3/  1 PE  1 3 . 5,  2Pf<j  . 3,  IpE  1 * . 5/ 2PF9 • 3*  l »,  12/  1PE 1 3 . 5/ 2PF9 • 3 1 0 1 7 7 


Ge  To  3*ln 
C****>«*  KE  *N0  PE 

35C4*  PRINT  351*,  IO*K'EI  1 IOI/PCK/ ,PEI(  IMI/PCPE 
35 1*  FORMAT! IX. 13, IPE 1 3.6, 2PF9 . 3, 1 PE  1 * . 5, ?pF9 . 3 | 

GO  TO  3* 1 0 
C*o»»»  KE/pE/CE 

3505  PRINT  3515/ I8/KEI ( lO)/PCKt, PEI ( Ifll/PCPt/ l/K/CE/PCCE 


0178 

0179 

0180 
0181 
0182 
0183 
018* 


3515  FeRMATl IX. 13/ 1PE13.S/2PF9.3, 1 PE  1 6 . 5, 2PF9 . 3, 58X, 2 1 2, 1 PEI 3 . 5/ 2PF9 • 3 1 0185 

GO  To  3* In  0186 

Ce***»*«  KE/PE/sE/OE  0187 

3506  PRINT  35  U*  IO/KEI  ( |0  I /PCKp.PEI  ( 10)  /PcPE/  1 0,  I G ( 1 0 I i JG  ( 10 ),SE I J ( I 01/0188 
1 PCSE/OEIjI IOI/PCDf  0189 

3516  FORMAT! IX, 13/ 1 PEI  3.5/ 2P*  9.3, 1 PE  1 * . 5, 2pF9 . 3, 2x, 3 1 3, IPE 1 3 • 5/ 2PF9 . 3/  0190 

1 lP£l*«5/?PF9.3)  0191 

GO  TO  3* lp  0192 

C*»****»  Kfc,PE/c.E,OE»CE  0193 

350  7 PRINT  3517*  1 0/ KE  I ( 1 0 I , PCKE , pE  I ( IOl/PCPE,  1 0,  1 0!  1 0 1 , JO  < 1 0 1",  SE  I jfl  0 1 ,0 1 9* 

1PLSE , OE I J ( lei/PCDE.l/K/LE.PCCE  0195 

35 1 7 FORMAT  I IX, 13/ 1PE13.5/2PF9.3, lPEl«.b,2PF9.3/2X/3I3/ IPE 1 3 . 5/ 2PF9 . 3,  0196 

1 1PEi6*5/?PF9*3, I*, 12/ IPE 1 3 • 5, 2PF9 • 3 I 0197~ 

3*10  CONTINUE  0198 

IF ! TIME.LE‘PTIM.OR.PTIM.Lt.0* I GO  TO  3650  0198 

lF|NS*LE*Pl  00  TO  3650  0198 

PRINT  362p  0198 

Oe  3600  K.1/N9  0198 

IF|T|ME.Le«TMEl|KI | GO  TO  3600  0198 

M"NElKI  0198 

MMfNcP(X)  0198 

PRINT  363p, M **  0198 

PRINT  366,1*  <L,SIGB<K/L>/tXY<K,l>/TX2(K/L)/SU(K,LI/SV(K,cI,  0198 

1 TIElO(X/lI/PLAST(K/LI/L»i,MM)  0198 

3600  CONTINUE  0198  * 

3620  F0RMATI////2X, *•**•♦  PL ASt I C- Y I ELD  OUTPUT  .»*•** //2X, 1 I GS * /5X,  0198 

A*«CPS'/  0198 

1*X»  *SlGM*x  ' ,9X,  'TAUXY  ' / 1 lx/'TAUxZ'*12X/'SU'/  1*3  X#  iSv*/6X/  * YIELD'/  0198 
11 X/ 'PLAST  * 1 0198 

3630  FORMAT ( 2X , I 3 1 0198 

36*0  FORMAT (5X. I3/5E15.5/A6/2X. »* ) * 0198  ‘ 

3650  IF (NOPLOT • LE • 0 > RETURN 
iFITlME.LfPLTT)  XpLT»0 
iF|Time.lt«pltti  return 
XPLT.KPlT*1 

IF ( KPLT , Nf .NPTC.AND*TIMt*Nt*0»O)  RETURN 
XPLT.O 

00  3651  L.l, NOPLOT 

1 9c  • I Sr  *LE  I L I 

KTy«  KTyPEIL) 

DO  3656  K«1,*0  _ _ 

WIKI.O. 

»M I K I .0. 

3656  CONTINUE  

IF|XTY»f0.1)  GM  TO  3652 
!F|KTY'f0.2>  GO  TO  3653 

lFlKTY«f0.3)  GO  TO  365*  

PRINT  37OO/L/XTY 
STOP 

3652  DO  3657  JJ«1,*0  

NPT.  nHPTIL/JJ) 

IF  ( NPT  • EO • 0 1 GO  TO  J65S 

VV ( J J 1 * XI NPT I 

HR! jj|«  Y I NPT I 
IFIJJ.EQ.60I  00  TO  3670 

3687  CONTINUE  


219 


PRINT  3702/JJ  286 

STOP  289 

3653  DO  3658  JJ-1/60  286 

NPT  ■ \MPTIL/JJ»  28/ 

|F(NPt*EO*OI  GO  to  J655  2BB 

vvijj>.  y i npt 1 5j»_ 

BRtjJ!«*7lNPT)  290 

IF  I JJ.EQ.  (to  I GO  TO  Jbjo  291 

3658  COnTI  nUe  252 

PRINT  3702 / J J " 293 

STCP  29* 

365  6 DO  365  ) J J*  1/60  ; 23b_ 

i.PT.NmPTIL.  JJ1  296 

IF  I NP T * EO • 0 ) GO  TO  36«,5  29/ 

VV I JJ |»  X!  NPT ) gJB 

KP  I jj  I «»7  IIJPT  I 299 

IF ( JJ ,EQ. 60  I GO  TO  367o  300 

3659  COnT  I NUfc  3JJ1 

PRINT  3702.JJ  302 

8 TCP  303 

3655  JJ-  JJ-i  3Q6 

36/0  COnTInUi  305 

PRIM  370t/  iSuBIIlaK>**»I/20)zTIME  306 

PRINT  3/80/  !NMPT<L«KI»k*1z J J T 3g7 

3680  FORMAT!  ' HASS  NUMBERS  PiOTTEOi/  2(5X~»20l6)l  _ 30« 

CAlL  PApLOTI VV/WW/ JJ/ ISC  1 309 

3651  CONTINUE  310 

RETURN  311 

37C0  FORMAT!  • INVALID  PLOT  !Vpe  INPUTTED  L«  '/I6/'  KTYPE I U • ' / 1 6 I 3l2 

3 /C 1 FORMAT!  lnl/20A6/  1 TIME.  i,tl5.6) 3l3 

3702  ORMaTI  * JOB  TERMINATED  |N  PRINT  ROUTINE'/  316 

x • Plot  selection  inoice  in  one  of  3650  loops  out  of  range  jj«'/  sis 

Y 16  1 3}6 

END  * 0200  317 


ICUP  CI/SO 

SUBROUTINE  EULeR(*/PHI/ THfTA/PSI 1 
IMPLICIT  rEAL*8<6-H/0-2) 

C MEMBeRNAMe  S79REU 

OIMtNSlOu  A 1 9 > 

S IN  1 G I • DsINlG) 

COS ! G I • DrOSlG) 

Cl  • COS(pMI) 

52  • SIn(tHETA) 

C2  ■ COS(tMCTA| 

53  * SInipSI) 

C 3 • CO 9 1 pS I ) 

Alii  ■ C?*C3 

A I 2 I • C p*53 
AI9>  ■ -Sp 

AI6I  ■ -Ct.S3*Sl»S2»C9 
A ! 5 I « C t »C3*Sl »S2*S3 
A 1 6 > • S t *C2 
A ( 7 I ■ S 1 *S36C t *S2*C J 
A ( S I • »Si »C3*C1*S2*S3 
a e 9 I . C 1 *C2 
RETURN 
END 

IASS  INlSO/LO) 
t ass  !m:ci,05,S79rin:F) 


6 

0005  s 

_0006  6 

666s  7 

0009  « 

_OPVQ ? 

0011  10 
0012  It 
00|3_  12 

0016  J3 

0015  16 

_opi6 LL 

0017  16 

0018  1/ 
ooi»__i!L 

0020  19 

0021  20 

0022  21 
0023  2« 


uuu  u 


icup  ci.so 

SUBROUTINE  PI.ASTN 
IMPLICIT  r£AL*8IA-M/0-*I 
MEMBER  NAME  S79RPLJN 

this  routine  reads  in  data  fbh  plastic-yield  criteria 

CATA  is  REaO  in  FROM  ONII  L3  DEFINED  by  1ST' read' IN  TfflS  routinT 


CflMMjN/  IrOPLV/  NE(0SS|iNns>NID|0BS><NCP|085)«NS/L3 

COMMON/  IfOMAL/  M A x'NH / M AX IQ8 » MAXTBLz 1 N DP) 

A NMjIQS, JPL0T/NPL0T/1PL9M, IP/ IPLC» It Jt I PLOT ( OlO I / I D ( 
a M5101,Nk(SO»3I.IsP190.3»,IJPR(085», JOPLOTIOJO) 
DIMENSION  E ID  I 35 ) / CP  I 85 ) 

HEAD  I00/XL3 

IFIXl3«lE,0.0)  RETURN ■ 

L3«Xl3 

CoNTROi S FOR  PLaSTIC-Y,eLD  CRITERIA  *♦* 

READ ( L3/  lfiO  I PTIM/DS/tLbS  

NS-ELSS 

ncs-os 

print  10l.PTIM,NDS,NS  

IF(PTIM.LT*0. I QO  TO  A2u 
DO  AoO  X-1/85 

♦ 00  NElXl-O  

READ  I L3/ loO ) I lPR0p(K/MI/M«l»3>/K-i/ND8i 
PRINT  1 1 2 

PRINT  lpZi  IK/  I PROP  ( Kz  M ) /_M«  1/  3 I /K-l/NOSJ 

REAO(L3,ln3|  (NElKI/fclblK)/CPik>/TMEL(K)/K-l/NSI 
PRINT  113 

PRINT  10*.  (K/NEIKi/EIDIKi.CPIKI/TMEuKI/K-I/NSJ  

DO  AlO  K-j /NS 
NIOIkI-EICIKI 

♦ 10  NCPU»-CP(KI  

READ  I L3/ 1 t 0 ) I (EALwIK/M)/m.1#A|/K-1/N8I 
PRINT  llA 

PRINT  107. (K/NEIKI , I E ALM I x ,H 1 / M-l / A ) , K- 1 /NS ) 

PRINT  U5 
DO  A3Q  K - 1 /NS 

MM*NCHIK1  

RE  AO | L3. 1 n6 I ( (CKPT<K/N,L*,L-l«8|/N«i,MM> 

PRINT  108.K/NE(KI 

♦30  PRINT  lit.  ( (CkPT(k*M/LI/l.1*8).M«1/MMI  

♦20  PRINT  109 
100  FORMAT ( 6E  1 2 • 5 ) 


0001 

.1 

2 

0002 

3 

-JJP03. 

A 

OOOA 

S 

0005 

6 

>0039 

/ 

0007 

8 

0039 

9 

.-DftO.3  . 

-ID 

0010 

U 

0029 

12 

_P°30 

>3 

1" 

1» 

.16- 

_ 0 0 1 3 

1 ' 

0D13 

_ OOIA.. 

u. 

0015 

2D 

0016 

21 

_DQ17_ 

_22 

0018 

23 

2« 

0020 

0021 

0022 

M23_. 

002A 

0025 

0026  — 

0027 

0028 
QQ29- 

0030 

0031 

0032 

0033 
003A 

Q035  „ 

0036 

0037 

Q038 

0039 

OOAO 


101  F0RMATI///2X/ 'PLASTIC-YlEi  0 CRITERIA  QA T A '/ /2X/ ' ST ART  Time-1/ gOJl 

1 EI2.A/2X. 'NO.  OF  pHOPENTy  SETS- ■ / 1 ♦. i NO.  OF  ELTS-»,IA|  0OA2 

102  F0RMATI2X.IA/1P3E12.AI  00A3 

103  FORMAT  I 15.3E12.A I _ _ _ _ 0OAA 

10A  F0RMATI2X.2IA/IP3E12.A)  ' ' " 00A5 

106  FORMA T 1 6E 1 2 • ♦/ /2E 12 • * • 0OA6 

10 7 F0RMAT(2X,21A/iPAEl2.A)  00A7 

108  FORMAT  I2X.2IAI  * 00~A8 

109  F0RMaT)2X.  ••***, END  0^  *’La  ST  1 C-Y IELO  CRITERIA  INPUT  •♦♦**'1  00A9 

HO  FCRMaT  I aE  i 2*  A I 0050 

111  Ft RMaTI10x/8E12.AI  " “ " ~005l 

112  FCRMaT ( IX , • PROP < / AX/ • ARE A i , 9X/ 1 1 YY 1 « 9Xz 1 1 ZZ 1 / IX/ ’ SET  0052 

113  fORMaT(2X. ' ID ' / 2Xz i I QS ' . 2x. ' PROP  SET  »'/3X,'A  CKPTS'.5X.  ” 0053 

1*T!ME  FOR  CHECK' I 005A 

llA  F0RMaT(2X,  mo*.  2X/'lQS'zl5x»  'ALLOWABLES  FOR  CKPTS  • / 16X/  • 1 ' t__  0055 

lllX/ '2'zlpX/ '3'zllx/ '♦' I ' ' ' ~ 0056 

1 1 S FORMAT (2X. • 10'.2X/ ' IGS'/Isxz 'CY'/lOX, 'CZ'/9X. 'QYT',9X/ 1 QYZ • 0057 

19X< 'QZYi /9X/ 'OZZ '/ lOXz 'KYi, |0X/ 'KZ 1 I _ _ 0058 

return  005, 

END  0060 

IASS  (MISS/LOi  

i ass  ih:cI/05/S79rcf:f> 


BMW 


! CUP  Cl, SO 

SOBReUTlN*  CFORCE  , OOP!  J 

IMPLICIT  rEAL*8U-H/0-ZI  ' * 2 

C «E«B£R  Nt«E  S79RCF0R  0002  3 

CeMMeN/DP?*/XMU(50,3l/XK£(50,3l,$IiS0,3),SA(50/3l/S8(5o,3|,  A 

2 8Ft50,3>,FSP0l 1 50, 3 1 /FSPflF 1 50, 3 I ' ---  - - - 0033  V 

DIMENSION  V A | 3 ) , V Ad6T  I3)/pRAR(3(/  XLNOTH  I3),IISP(3I/XXLBAR(3),  0006  6 

1 FSP<3,3>,XV8C{3,3|,C*(3),CS<3l,VC3(3l«Sl3),S08TI3),PU3,3>  0007  7 

DIMENSION  OPQRlN(*)/OXYZ(^)  # 0XV2PR  l~3  I / TERM ( 6 ) 0008  i~ 

C0MM0N/C8mALL/  Ct6,08S>,P(501/O(50l,R(S0),U(50),V(50><R<50>,X<50>,0O17  9 

l Y<50l,Z<50l,AI<9l,AJ<9l,x,<REF(6,B5>,sCI50»3)»XCI6>,  10 

A XK 1 3060 ) ■ X] | So ) < ' H 

2Yll30)'Zlf50><XYI<50KXZI(50>'YZII50l«AIJ(9>jBIJ(450>«0IJ(76S)>  12 

3 URl(085l,8AI(*50>/VEtt51n),WUT|50)/PHl(50)/THETA(60)*PSI(50)/  0020  13 

♦ PD6T(5o>»008T(50)jROor(6oi*UD8T(50|»V08T(50t»  W08T(  50 ) » XDOT 1 50 ) / 0021  1* 

5 YDOT(50>.ZD8T<50t,PHIOiJT,50>/THED8Tt5O),PSIDOT(50),TIh£,0ELTAT,  0022  IB 

6X*CC(50), yACCI50>/ZACC(50|,AITAJ(9I,AID8T(9),FMBAR<6,85), 16 

A CEUFM8  ( 3o60 1 / ~ J/ 

7 PHIiJ(085ljTHEIJI085)»PStiJ(085l»SuiiDF(6i085)/TIT(.E<201»  002*  18 

8 XLBaRI5Q.3)/FsPBAr(50/3) . yECPOT I 3/ 3 I , OX < 50 1 / DY ( 50 ) , DZ < 50  I / Q923 L?_ 

8 OP  It;  1 60  • • OQIN  ( 50 1 « OR  1 N 1 5o  ) / 0026  20 

8 SEIJ(085|»0tIJ(og5l/CEIKt50»3l,  TMAX  0027  21 

COMMON  / IC8MAL/  MaXNM/MAxIOS/MAXTBl,  INDP,  002() 22 

A NM, l OS, JpLOT/  NPLOT / IRLSWjJP/IPlC/I/J/IPlOTI  010 ) , 10  ( 089  1 , JG  ( 085 1 / 002f  23 

B N|5l0  I/NM50/3I,  lsP<50,3>,  I JPR(085),  IDPL8T(010)  0030  2* 

C6MMCN/MA I NCF/  IPRINT,  1TPL8J,  IBS (50, 3) OOLt_jS 

EQUIVALENCE  ( C* ( 1 ) , OXYZ I 1 1 I / ( C3 (ll / DXYZPR ( 1 | ) , 002*  26 

SORT ( G I a OSORT(O)  • 0027  2/ 

VAIll  • Xil)  0025 28 

V*  ( 2 ) • Y(H  0026  29' 

VA(3)  • Z 1 1 1 0027  30 

VADOT(I)  a XOOT ( 1 1 0028 31^ 

V*D8T(2|  . YDOnll  - - - 0029  32 

VAD8  T 1 3 ) • ZD8TIII  0030  33 

PBARUI  • P(II  003  J _ 3* 

Pfl AR ( 2 1 « 0(1)  ""  0032  36 

pBAR(3)  * R ( I ) 0033  36 

C INITIALIZE  S8nE  MORE  003*  37 

08  9 1 0 K • 1/3  0035  3* 

XLNQTH(K)  ■ 0*0  0036  39 

IISPlK)  • ISPIl/XI  0037  ^0 

XXLBaRUI  “ XUBAR  ( 1 1 < l ~ ~~  0038  *1 

00  9 1 5 JJ  • 1/3  0039  *2 

FSPIJJ/KI  ■ 0*0  £0*0. *3 

915  XV8C(JJ/X)  « 0.0  00*1  «♦ 

910  ceNTINUE  00*2  *6 

C LOOP  0 _ t Q0*3  *6 

oe  920  K • 1/3  od**  */ 

IF  (IISP(*I)  925/920/925  _ _ g0*5  *8 

925  J SUB  ■ 3»k  00*6  *9 

DVC  ■ AI I (SUR ) *XXLa*R > K > 00*7  50 


OVCOdT  a aIOOT ( ISUBl **XlBarj« > 

VC  ■ VA ( 3 1 *OVC 

VCOOT  • VaD8T( 31+OvCDOT 

C*(Kl  a Vf/OVC 

C5  ( X ) a (f.VCaVC00T.VC*D7CnilTI/<0VC*0vCI 
VC3 I K ) a VC 
920  CONTINUE 
C LOOP  h 

00  3o  X • 1/3 
1 F I 1 1 SP ( X ) 1 35,30/35 
35  IF(VC3(KI)  30/ 30» *0 
*0  I SUB  • 3*(K«l) 

BARL  - XXt  BaRIK) 

SUM  a 0.0 
SUMO  a o»r. 

C LOOP  J 

DC  So  J • 1/3 

i sub  ■ tS|  B*i 

OVC  • A I ( t SlJB  ) »BARl 

OVCOeT  • a I06T ( ISU0 I abAKL 


00*5  _ 51 

00*9  52 

0050  53 

005}  5* 

0052  5b 

0053  56 
005* _ 57 

0055  58 

0056  59 

0057  60 

0058  61 

0059  68 

OS60. 43. 

0061  6* 
0062  65 

.0063  ,*6 

006*  67 

0065  6« 


3fe6_6.9 


0067  70 


222 


ovp  . C*l*l*DVC 

0068 

71 

OOP  • C*U  l*DVCD0T*C5l<  l*nvc 

0069 

72 

$UP  . SuM*DVP»OVP 

0070 

73 

SUMO  ■ SUrD*DVP*ODp 

0071 

7* 

50  CONTINUE 

0072 

75 

si<  ■ sort i sum i 

0073 

76 

S < K > • SK 

0076 

T 

SCU.K)  • SK 

0075 

7« 

SOOT(K)  • SIJMO/SK 

0076 

79 

c 

GET  LENGTH 

0077 

80 

IFIBaRL)  c,5>  60,  60 

0078 

_J1 

65  T * 'BARL.SK 

0079 

82 

I F 1 T 1 65.65.70 

0080 

85 

70  T • -T 

.0081 

8* 

00  TO  65 

0082 

85 

60  T « B*RL”sK 

0083 

86 

I F | T ) 7o»  *5, 65 

098* 

8/ 

65  KLNQTMI K t • T 

0085 

8« 

30  continue 

0086 

89 

pu  i,  1 1 - -soar 1 1 1 

.0087 

. 90 

PL  1 2/ 2 ) • -SD0TI2I 

0088 

91 

PLI3.3I  • “SOOT  1 3 ) 

0089 

92 

pu2,n  • pbar(3)*xlnoth(,  , 

009Q  9 J 

PL(3»n  ■ -PBARI  2 UKLNQTHi  1 ) 

0091 

9' 

PL  I l , 2 I • -P8AR(3).XLN0tH,2) 

0092 

95 

PL  1 3, 2 I • PBAR  i 1 )*xLNOFH(pj 

0093 

?6 

PL  1 1 , 3 ) • PUAR(2)*xLNliTH<3| 

009* 

9/ 

PL  1 2, 3 ) ■ -PBARi ll.XLNOTM, 3j 

0095 

96 

c 

ueep  K 

0095 

.1? 

00  75  Jj  . 1,3 

0097 

ioo 

I SUB  * JJ.3  ' 

0098 

101 

V*D  • VAOpTlJJI 

0099 

102 

c 

teop  l 

0100 

1 0 9 

00  80  K • 1,3 

0101 

10* 

IFUJSP|K,>  85,80.85 

0102 

Its 

■ 5 IF | VC  3 1 K > i 80»80»90 

0103 

106 

SO  SUM  . 0.0 

010* 

10/ 

c 

trep  p 

...  . . . .0105 

I0» 

oo  95  L - 1,3 

0106 

109 

[SUB  « iSiiBO 

01*7 

110 

85  SUP  • SUP.AI | :SUB)»PLIL/K, 

0108 

111 

vECDcT 1 J J, K ) . VAD.SU" 

0109 

112 

SO  CONTINUE 

Olio 

U3 

75  CONTINUE 

Old 

11* 

c 

LOOP  N 

0112 

115 

00  lc5  K . 1.3 

0113 

116 

IF  1 1 1 SP  c •»  i » I10.105.HO 

Oil* 

11' 

110  I F 1 VC3  < K 1 1 105.  1 05. 115 

0115 

U« 

115  SK  • SIX  1 

. . 0116 

119 

SCIF  • SK.SF 1 I.KI 

0117 

120 

IF ( SO  IF  | ,20.120.  125 

0118 

121 

120  |FIIhS<I.kI)  130.130.135 

01(9 

122 

125  I BS 1 I . K ) . 1 

0120 

123 

135  FSPO  • FSpOF ( l.K I.XKE 1 l.K ,,SD1F 

0121 

12* 

iFlFsPOl  16O.l9O.l9O 

0122 

129 

1*0  FSPO  • 0*,1 

0123 

126 

oo  ie  190 

012* 

12' 

130  SP  • SK.FSPBAR| I.K  | 

0125 

12» 

c 

FSPOaH  9 SB4R.FSP0BAR/KE 

0126 

129 

iFlSPl  l5n* 155, 155 

0127 

130 

ISO  FSPO  « 0*n 

0121 

131 

go  TO  160 

0129 

132 

c 

COMPUTE  FSPO  PER  NEW  EXTERNA,  SPRING  LBaO-STHOKE 

CURVES  7/25/72  0130 

139 

155  FSPO.FSPOfll.K) 

0131 

13* 

1 F lsP.GE.S8d.KH  GO  10  16O 

0132 

139 

IF  ISP*GT.Sa| I.K) 1 GO  TO  iS7 

0133 

13* 

FSPO.FSPOi(I,K| 

013* 

13' 

|F  1 9P * oE , S I d . K 1 1 GO  TO  16O 

0135 

13* 

FSPO.FSpO.SP/Sld.Kl 

0136 

139 

GO  To  ISO 

0137 

JL6? 

223 


137  FSPO.FSpOj ( I,K)*(Sp-SA< 1 ,K) I *(FSP8-FSP0I ( I,K ) 1/(8B( I,K  l-SAI I # K ) ( 0138  161 

160  iF(S00T|K|I  165,165,1/0  0139  16* 

170  nn i I # k ) • o 01*0  i»a 


GC  to  190 

165  I F < NN ( I > K | I 190,175,130 
175  KMI.KI  • 1 

FSPBaR(I*k)  « SK-FsPO/XKE, l,K  I 
C (156) 

190  VX  » AI(3*K|*FSP0 
X VOC ( 3/ K ) • VX 
Vl  • VEEOoT  ( 1 , K ) 

V2  » VEEOrtT ( 2,  K ) 

VBB  ■ SQRrl Vl*Vl*Va*V8l 
IF(VBB)  2 i 0 * 2 1 o<  20o 
200  V*  ■ XMu(  1*K)»VX/V(»B 

XVOC(IjK)  • VX*VEEoOT I 1 » K i 
X VOC  I 2i  K ) > VXvVEEOOn  2<K  I 
210  IS  » 0 
C LOOP  C 

DC  2?0  J . 1,3 
SUM  • 0.0 
C LOOP  R 

cc  230  L • 1,3 
IS  ■ IS»1 

230  SOM  • Su«.AI ( ISI*XvOC(L,K i 
220  FSPt J,K)  . SUM 
C EhO  Of  ll'OP  N 
105  CONTINUE 
C CRASH  FORCES 

00  2h0  J m 1,3 

son  ■ o.o 

00  250  K . 1,3 
290  SUM  • SUM+FSP ( J, K I 
260  XCIJ)  • Si  M 
D*Tl  l 1 > *0*  1 1 ) 

0XYZ(2).0yI I I 
0XYZ(3I«D7<  I > 

OPORINI 1 ).OOIN( I ) 
OPORINIZI.ORINi I ) 
pPOR I N ( 3 I pDP I N ( I ) 

OPQfilNU  I.D'JINI  I ) 

TERMiD  • FSP(  3,  1 I •XLUO ! H | ] ) 
TERM ( 2 ) ■ FSP(1,2I*XLN0TH,2) 
TERM | 3 I ■ FSP(2,3I*XLNQTH(3) 


0161  16« 
0162  165 

0163  1 65 

0166  16/ 
0165  16« 

01 66 16? 

C 167  ISO 
0168  151 

_ 0169  152 

Oiso  153 
0151  136 

P152_155 

0153  156 
0156  15/ 
0155_15» 

0156  153 

0157  160 

0 J 58 1 6 1 

0159  162 

0160  163 

0161  166 

0162  165 

0163  166 

0166_1 6 / 

0165  16* 

0166  163 
0167  J70 

0168  171 

0169  17* 

0170  17J 

0171  176 

01 7?  1 73 

0173  176 
0176  17/ 

0175  17« 

0176  173 

0177  180 
017«_tll 

0179  182 

0180  183 
0181  186 


TERM(6I  • FSPI2, 1 >*XLNUTH|  1 ) 

TERM ( 5 I • FSP(3,2I*XLNGTH|?) 

TERM  1 6 ) ■ FSP(1,3)*XLNQTM,3)  

C CRASH  MOMENTS 

XC  I 6 ) • URM(5)«TERM<  31 

XC I 5 > » TfRM(6)»TErM( 1 I 

XC I 6 > • TfRM ( 6 ( »TErM ( 2 ) 

C 61  CORRECTED  TO  Al  IN  CALL  on  OCT  27,1976  MLH 

CALL  MATVfC(AI,OXYZ,OXYZPb,i)  

DO  2&0  X-1,3 

IF ( 1 1 S P < K | .£0*0)00  TO  260 

SUM*0  * 0 •_ 

00  270  J-i,3 

270  8UM-SUM-F!;P(J,KI*0XTZPR(J| 

CEIK|I,k)»CE1Ki1,K)*SUM*TfhM(KI »DPURI N (K1»TERH(K*3) 60P0RIN I K tl  1 
260  CONTINUE 

c 

RETURN  

eno 

IASS  ( M l 80, LO ) 

I ASS  ( M 1 C 1 ,03, StSMAM  j F ) 


0182  185 

0183  186 
Ol?6...1|/, 

0185  18* 

0186  183 

0187  19° 

0188  191 

0189  192 
-0120—19.2- 

0191  196 

0192  193 
Q.l9a_196. 

0196  19/ 
0195  19* 
-0196-19?- 

0197  200 

0198  201 
.0139-202 
0200  203 


I CUR  Cl, SO 

SUBROUTINE  matmulia,b,ci 
IMPLICIT  rEAL*8IA«h,0*Z) 


0026  1 

L 


I 


DIMENSION  A(3<3)>B|3>4IiC|3>3) 
C A.B  TB  C 

DC  lc  I * 1.3 
DC  10  J • 1/3 
SUM  ■ 0.0 
DC  ID  K • I/S 
20  SUM  - SUM*  A I IiKKB|K,  Jl 
10  C<  1/ Jl  ■ SUM-  • 

RETURN 

end 

iass  (m:so,loi 

iass  im:ci,D5,S79mav:fi 


ICUP  CI/SO 

SUBReUTJN*  MATvECI  A/V/P/ I/jw  I 
IMPLICIT  pE*L*>I<  A-H/O-2  ) 
DIMENSION  A(30)<V(3)/Pi3) 

C A«V  re  P IF  IsW  . 0*  ELSE  A T a v TO  P 
DC  to  I • 1>3 
SUM  - 0.0 
DC  2c  K • 1>3 
I F t ISM  An.  30/  40 
30  SUM  • SUM*A( I/k l»V<K I 
GO  To  So 

*0  SUM  a SUM*A|K/I l»V(K> 

20  CONTINUE 
10  P(  I t • SUi. 

RETURN 

END 

IASS  (MtSO/LOi 

Iass  im'.CI/DS/CtOmouf > 


0026  A 

0027  A 

_Q0?| 6 

0029  » 

0030  7 

-S03J.  ■ 


0032  9 

0033  10 
g03A  Jl 

0035  12 


0036 


0038  A 

0039  A 

QOAQ S 

004  l 
004? 

OOA  3 
OOA  A 
0OA5 
OOA6 
00A7 
C0A8 
0OA9 
0050 


6 

/ 

8 

9 

10 

1» 

12 

1? 

1* 

10 


CUP  CI/SO 

SUBRtrUTlNf  SHELLXt0ARMAy,KEY.NI 
SUBROUTINE  member  name  S79RPB  INCLUDES' PAPLOT  SHELL*  P SHELL 
IMPLICIT  rEAL*8( A-H/O-Z  I 

THIS  IS  A FORTRAN  SUBNOUTtnE  for  -k-OHDERlNQ  adependent  ARRAY  AC-' 
CORDING  TO  TMf  key  PRODUCED  By  SUUPqUTIne  SHELL  WHEN  AN  INDEPENDENT 
ARRAY  NAS  SORTED.  THUS/  I HE  ROUTINE  WILL  RETURN  THE  DEPENDENT  ARRAY 

in  its  Original  correspondence  with  tsc  snoepenoent  array,  darray  is 
the  name  OF  The  DEPENDENT  array  IDIHENSronED  at  least  n in  the  CALLING 
PROGRAM!,  K£f  IS  THE  NaME  OF  thE  KEY  ARRAY  (DIMENSIONED  AT  LEAST  N IN 

the  calling  Program  1,  and  n is  the  numbe.  of  elements "In  darray'and  in 

KEY.  GIVEN  ThE  ARRAYS  KEY  ANq  DARRAY/ 


L 

2 

4 

4 

5 

6 

/ 


8 

9 

..IP. 

1> 

12 


c 

KEY ( 1 • 

DARRAY) 1 t 

p 

c 

kEy ( 2 • 

DARRAY 1 2 I 

10 

c 

9 

9 

_ . p 

c 

• 

9 

p 

c 

• 

9 

IB 

c 

KEyINI 

DARRAY(N), 

19 

c 

20 

C IT 

IS  DESIREO  TO  RECORDER 

oarray  to  yield 

21 

c 

22 

c 

KEyIH 

DARRAYIKEYi  1 ! ) 

23 

c 

KEY  t 2 ! 

DARRAY (KEY 1 2 M 

BY 

c 

9 

9 

2* 

c 

9 

9 

2* 

c 

9 

9 

22 

c 

KEyIN> 

DARRAyIKEYINM  • 

2» 

225 


on  non  ooono  ononnoo  ooononn  oonno  oooono  nnoo  on  on  non 


c 29 

C THIS  SUBROUT InC  ASSUMES  KEY  Is  THE  SAMt  ARRAY  WHICH  WAS  PASSED  TO  SUB*  30 

C ROUTINE  SHELL.  WHICH  PlACLO  Ik  KEY  THE  POSITIVE  INTEGERS  FROM  1 31 

C IWROUOH  N • Ir  KEY  IS  OTHERWISE/  * DI SASf£R~ SHOULD  BE  EXPECTED* 
c although  this  fortran  routine  requires  mcre  execution  time  than  a 30 

C COMPARABLE  MArHlNE-OEPENDENT  dOUTINE/  IT  DOES  POSSESS  THE  FLEXIBILITY  3« 

c FeR  a rapio  Implementation  on  computers  processing  fortran*  the- t i mes~  30 

C REQUIRED  TO  Re-ORDER  A DAKRAY  of  10000  ELEMENTS  ON  THE  SRU  1108  WERE:  3* 

_ 3 

a sleuth  11  routine  - moo  seconds/  §« 

THIS  FORTRAN  RcuTINE  - .i69  SECONDS/  39 

AO 

coding  by  t.m.jonson  of  the  boeing  company/  april  1967.' ' " 41 

A* 

A*. 

OlMEi.SIeN  OARRAYID/KtYllt  44 

AO 

SET  IFIRSt-1.  IFIRST  REF FRENCES  The  FIRST  ELEMENT  IN  KEY  WHICH  IS  «b 

NOT  known  To  pAVE  ITS  pROPt1'  DaRRAY  ELEMENT  in  CORRESPONDENCE  WITH  it.  4/ 

AM 

iFIRsW  A 9 

SO 

FIND  THE  SMALLEST  1/  IFlHST.LEM.Lt.NT  SUCH  THAT  KEYII)  IS  POSl-  SI 

tive  iinitiaLiy,  all  keyik  Should  bf  positive/  and  hence  those  6* 

KEYiI)  WHICH  are  NEGATIVE  awe  IGNORED!  AS  THEY  ALREADY  HAVE  THE  PROPER  5-» 

ELEMENTS  FROM  OARRay  In  COH.'E-.pONOENCi  WM"  them.  5A 

5S 

10  CC  2c  !»1fIKST,N  56 

IF IKEYI I I |20/20/A0  57 

20  CCNT INUE  * 5» 

59 

se  such  i exists/  which  Implies  taat  the  re-ordering  has  been  com-  $u 

pleted.  resit  all  ke'yiD  tu  posit  ivc/  and  Return  to  the  calling  >ho-  ~ *i 
GRAM.  68 

64 

oe  30  I-l.H  6 4 

30  KETI II--KlY(I)  66 

RETURN  64 

6> 

SET  IFIpStM.  which  WAS  Fm.'ND  ABOVE.  FOR  ALL  KEYII)  SUCH  THAT  6» 

I.LT.IMHSTj  |T  IS  KNOWN  IMAT  the  PRO-E-  DARRAY  ELEMENT  JS  IN  CORRE- (9 

SPOnDENCe«  A|  SO,  SET  TEMP-DApRA Y | 1 | . S anC£  THE  ORIGINAL  CONTENTS  OF  70 

DARRAYlIl  ARE  BeINQ  HELD  In  TemP/  ThE  LOCATION  IS  AVAILABLE  FOR  THE  71 

pseptH  element  of  oarray  which  is  to  cor.espond  to  keyii  1. jjt 

79 

40  IFIRST-I  7» 

TEMP.DArR4Y( I ) _ J5 

GO  TO  60  76 

77 

place  the  proper  Element  from  oar-ay  anto  correspondence  with 7»_ 

KEYII  ).  SInCf  IK-kEYID  F RuM  4 LOGICALLY  PREVIOUS  STATEMENT,  THE  79 

PROPER  ELEMENT  IS  OARRaY(IK).  SINCE  this  ELEMENT  HAS  Been  PROPERLY  80 

PL>CEO«  ITS  0pIGIN4L  LOCATION  is  now  5VACANTI.  HENCE/  SET  I.1K  TB |i_ 

REF CRENCt  ThIe  'VACANT/  LOCATION-  " ~ 88 

83 

50  OARRaYI  I i.darrayi  Ik  I _ _ #4 

I- IK  8b 

B6 

the  I'ROPEm  CLEMENT  TO  CORRESPOND  0IT&  KEYII)  IS  DARRAYIIk)/  WHERE |7_ 

IK-KETIt).  ALSO/  MAKE  KEY(l)  NEGATIVE/  SO  THAT  IT  IS  FLAGGED  AS  HAV-  88 

IWG  THE  PROPER  ELEMENT  FROM  DaRRAY  IN  LO-HtSPONDENCE  WITH  IT.  89 

JO. 

60  Ik-KCTII)  91 

KtYI I )«-Ik  9 i 

a?. 

ik  must  be  compared  with  ifirst.  9« 

95 

IF  | Ik-IFIrST|50/70,50  96 

97 

since  IK-iFIRST,  The  proper  eleme-t  from  Oarray  TO  CORRESPOND  with  so 
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c 

c. 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


KEY!  I)  Is  IN  rfMP.  but  placing  TEMP  Sn  GTS  PROPER  LOCATION  hill  NOT SSL 

CREATE  A IVaCaMCY*  IN  DARIAS . HENCE*  ThaS  'CYCLE'  MAS  BEEN  PROPERLY  ” 100 

RE-ORDEReO,  AnO  A new  .CYCLE*  must  be  POUND.  101 

70  OAPRaYI II. TEMP  i q J 

00  To  10  10A 

END  lot) 

SUBROUTINE  FSHELLIaHMAY.Key*N)  j06 

IMPLICIT  rFAL*8< A-h»0*Z ) OOP?  10/ 

... 10* 

ThJS  is  A FORTRAN  SUBROUTINE  FOR  SORTING  AN  INUEPENDENT  ARRAY  OF  10* 

SIZE  K INTO  ASCENDING  0*<DeK  ( alGEHKAICAELY  least  firsti,  and  PROVIDING  flu 

A 'KEY'  ARRAY  WHICH  will  ALi.Ou  SUBROUTINE  SHELLY  TO  RETURN  DEPENDENT  111 

ARRAYS  Te  ThEtR  ORIGINAL  CO'-ResPONDenCE  with  the  INDEPENDENT  array.  I 1 1 

IaRRay  is  the  name  of  the  independent  array  idimensionep  at  least  n in  ijj 

the  calling  program)*  key  is  the  name  of  the  key  array  (dimensioned  at  ha 

least  N in  the  CALLING  PROGRAM!,  AND  N is  TH£  NUMBER  OE  ELEMENTS  IN  U*> 

IaRRay  and  key.  _ _ n«> 

THE  SUBROUTINE  USES  THE  AigORITHM  PRESENTED  IN  the  comm.  ACM,  JULY  11/ 

1JS9*  BY  D.L. SHELL  eF  THE  GENERAL  ELEC1RIC  COMPANY.  ALTHOUGH  THIS  118 

FORTRAN  ROUTINE  REQUIRES  MO"E  eXECUTI-N  TIME  THAN  A COMPARABLE  MACH l N£ 11* 

Dependent  routine*  it  does  possess  the  flexibility  >or  a rapid  imple-  126 

MENTATION  On  COMPUTERS  PROCESSING  FORTRAN.  the  times  required  TO  SORT  181 

an  IaRRay  of  10000  elemen'*  om  the  sru  nos  were:  ___  _ __  _ 182 

123 

a sleuth  u routine  • i.aob  seconds  18a 

this  fortran  routine  - *.os3_seconos Igs 

186 

CBOtNC  BY  T.M.JONSON  of  the  BOEING  COMPANY*  APRIL  196/.  18/ 

.....  12* 

129 

DIMENSION  ARRAY)  1 )*KbY(  1 I 1 3<j 


ESTABLISH  the  initial  CONniTlON  OF  the  key  array,  key  is  filled 
with  The  SEQUENTIAL  INTEOtRS  i,8*...*N.  thus*  key  represents  the 
original  locations  of  the  elements  in  Iarray.  as  iarray  is  sorted*_ 
the  CORRESPONDING  ELEMENTS  IN  key  will  BE  MOVED  to  reflect  this  re- 
location. after  the  sort  is  complete!  key  will  allow  subroutine 
SHELL*  To  Re-mRDER  OEPeNOLNI  ARRAYS  INTO  THEIR  ORIGINAL  CORRESPONDENCE 
WITH  IARRAY.  ~ 

00  10  I.l.N 
10  KEYI I l-I 

ESTABLISH  the  INITIAL  CONDITION  FOR  M.  M IS  THE  CURRENT  NUMBER  OF 

subsets  into  which  iarray  has  been  partitioned.' 
m-n 


REDUCE  M.  WHEN  THE  ALGORITHM  PROCEEDS  WITH  THE  REOUCEO  M,  THE 

effect  is  a merge  of  The  old  subsets  into  about  half  as  many  new.  in- 
itially* IARRaY  is  PARTITIONED  INTO  about  N?8  SUBSETS*  EACH  of  which 
CONTAINS  8 ELEMENTS,  W| TM  T«E  EKCEPTION  that  ONE  SUBSET  WILL  CONTAIN  3 
ELEMENT!  IF  N IS  OOD.  IT  IS  RECOMMENDED  THAT  A SAMPLE  PROBLEM  BE 
WORKED  By  Hand  TO  UNDERSTAND  the  MECHANISM'' OF  the  PaRTI TlOfii no. 

80  M"M/8  


TEST  THE  REDUCED  M.  IF  H IS  ZERO*  THE  ENTIRE  I ARRAY  HAS  BEEN 
sorted*  ano  control  is  returned  to  the  calljng  program. 

IF|M|30,30»A0 

30  RETURN  


SCI  K-N.M,  the  ELEMENT8  in  iarray  from  IARRAY! 1)  TO  I ARRAY  I K ) 
WILL  BE  USED  »S  (BASE'  ELkMlNtS  FOR  COMPARISONS.  THAT  IS*^  IARRAY!  I* 
WILL  ■§  COMPARED  WITH  IARRAY I !«HI . THUS,  ACC  ELEMENTS" f 8 IARRAY  WILL 
INTER  THE  COMPARISON  ScUUtNCE. 


«o  k-n-m 


.131 

132 

133 

>31 

13* 

136 

All 

13* 

139 

1*0 

1*1 

1*2 

_1*3 

1** 

1** 


1*1 

1*T 

l*» 


i*?_ 


150 


151 

152 

153 
15* 

AS* 

156 

157 


151 

159 

1 AO 

AH 

162 

1*3 


Aft* 

16* 

16* 


_H1 


16* 
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oor»  o r>  r>  n nnoonno  nnnnnn 


1)0  70  J»1.K  ib3 

c _ 1 70 

c since  the  index  addressing  the  <bas>e'  element’may  be  modified  ~ in 

C 'BACKWARDS ' By  THE  FOLLOWING  CflOE#  SET  I«J  AND  USE  I FOR  THE  'BASE*  J7e 

C I NOE  X * THIS  PRESERVES  THt  CORRECT  VALUE  OF  j FOR  THE  NEXT  'BASE'*  17J 

C 17A 

I»J  17? 

c 176 

t II  IS  CREATED  TP  ReF£'<E  Ce  T"E  next  HIGHEST  ELEMENT  IN  THE  CURRENT  17/ 

C SUBSET*  WHICH  IS  TO  BE  COHPAHpo  WITH  IARRaYII).  _ 178 

C 17» 

50  Il-I+H  HO 

C ; 18? 

C ceMPARE  aRRAY(I)  WITH  Array (III*  ig* 

c 18J 

I F ( array,  I|.  ARRAyl  II  I 17  r,  ,70*6o  ISA 

IBS 

SINCE  IaRrAY(I)  is  GRLAIEr  than  IARRayUIW  INTERCHANGE  THESE  TWO  186 

ELEMENTS,  MOV | NO  THE  SMALLER  tOWA«0  THE  FIRST  OF  THE  ARRAY.  ALSO,  IN- 1&7 

TeRCHANQe  KEY , I 1 AND  key  C 1 1 1 TO  REFLECT  the  new  LOCATIONS  of  THESE  188 

elements.  iga 

l?o 

60  TlMBO*  AHrAY(I)  191 

ARRaYID.  ARRayHII  19E 

ARRAY(II,«TIMbe  _ 

timbo-kev, n 194 

KEYID-KEyUD  190 

XEYI ll l.TrMBO  196 

197 

SINCE  an  INTERCHANGE  occurred,  THE  ELEMENT  IN  URRAydl  MUST  NOW  I9B 

BE  COMPARED  WtTh  The  OTHER  ELEMENTS  IN  ITS  SUBSET  OCCUPYING  LOWER  LO- 13£ 

CATIONS  IN  IArRAY*  THE  COMPARISONS  ANO  EXCHANGES  CONTINUE  UNTIL  THE  200 

ELEMENT  hAS  UpEN  PROPERLY  OHOrREO  IN  ITS  SUBSET.  I IS  REDUCED  BY  M TO  201 

heferenCe  the  next  lower  tLi.MFNT , and  then  tested  to_ assure  .j.ge*W 2ob 

204 

I • I *M  20A 

IF ( I 1 70, 7n,50  208 

20* 

the  element  is  properly  placed  in  its  subset,  examine  the  next  207 

•base’  Element.  20» 

20» 

70  CONTINUE  210 

ill. 

ALL  OF  THt  H SUBSETS  HAVE  BEEN  SORTEO*  21* 

213 

GO  TO  20  211 

END  215  ‘ 

IAS*  <h:so,loi 

I ASS  (m:CI,05,S79PaP IF t __  _ 


ICUP 


c •• 


*•» 

•21 


tiPTS,  ISCALEI 


Cl, SO 

SUBROUTINE  PaPlOTI  V, 

IMPLICIT  R£AL*8(A-H,0- 
IRTEGEH.4  S, G 
MEMBeRNaMf  S79PAP 
SUBROUTINE  TO  GENERATE  ON,  INE 
OIMEhSION  VIII,  Min,  SllM3t, 

DATA  SI  1 1 ,S( 103)/' |9X, •, • I •/, GUI, G(2),G(3l»GIA|,G(Sl,G(6|/>lK. 0007 


PAPER  PLOTS J_ 

8X1500),  G ( 6),  XUOtl,  YIlOl) 


1 •» I 1H* • )H*i, , 1H-I, • IH** , , INCH*/  _ 

set  up  scale  values  fur  Indefenoant  <x'  array 
amaxkc.o,.  dmax  1 1 c< 0 1 

aminhc,0)>  dhiniic'Di  

ABSIC)-  OtBSlCl 


_00fll_. 


X 

10 


XMAX 

YMA» 


•1.0E10 

•1.0E10 


0009 
OIIA 

J>*  15 — I !- 
0116  1* 

0010  1J 

0011  1» 
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XMIN  • J • fit  1 0 

YMIN  ■ 1 • oE 10 

OMo  1 • 1 i NPTS 

XRAX  • 1 « V(II>  XMA*I 

xriN  - A ri T M 1 ( VI  I I. XMIN  I 

YMAX  • A*aX1 ( Witt,  YMAX  , 

thin  • amimii  will.  r"iN  i 

XI  I I • yl  j I 

VI  1 I * Ml  I I 
CONTINUE 

0*  • XMAX  • XHIN 

ov  • v max  - vmin 

..........................  ...OPT  IONS  — — ......—  ....... 

— IF  ISCAl  £.-1  SELECT  jC*LES  INDEPENDENTLY  BASEDON  ^ AND 

— IF  I SCaLf  *0  SELECT  SCALES  of  EQUAL  MAGNITUDE  — — — — 
IF ( IsCAlE , Ea . 1 ) 00  TO  118 

U iOY»r,T.nxi  ox. or 

lFIOX.ijT.DV)  DV.DX 
x!>XmIN 

XSCAlE*DX*0.10 

REORDER  DEPENDANT  >V  ARuaV  in  MONOTONICALLV  INCREASING 
CALL  FShEi  L |Y,BX,rPTSI 

REORDER  iNOENDANT  'X1  ARRAY  in  CORReSPOnCE  WITH  present 
C*LC  SHELlX  |X,BX»nPTS) 

setup  scale  VALUES  for  UEpeNOANT  »Vt  ARRAY 
VSCAlE-OY/B. 331333 

INDEX  PRIr ter  TWO  LINES  D—N  ON  NEW  paGE 
WRITE  16. 7nOOI 

— LINE  i OCATES  HORIZONTAL  AXIS  ........ 

IFIYiD.Gt.O.)  LINe-1 

IF ( v 1 1 ) .Lt "0. • ANO« VI NPTS » .lT.O* I LINE-50 

IF  I Y|  1 ) .Lt  "0.  .ANO.VlNPTSI  ,0T.0»  ) L I Ng -ABS  I V (_|  I l/0Y>50» 

LOCATE  FIRST  vertical  scale  n*Rk 
...... .MaRn  LOCATES  IN  VERTICAL  SCALE  — ————  — 

MARK.50-L ,NE-I 50-LlNEI/G** 

J-l 

N»l 

NL*5l 

START  ljne  LOOP 
CONTINUE 

SETUP  II  a 12  FOR  NORMAL  PRINT  LINE 
11.1 
I2«3 

IF  | INL-1  ) .NE. LINE  loo  TO  lj»g 
SETUP  U a 12  FOR  ZERO  AX, s PRINT  LINE 
!!•* 

12*3 

CONTINUE 
00  150  I-3»102 
SHI. GUI, 

CONTINUE 
S I 2 I .0 1 1 2 i 


0012  13 

0011  J* 
001*  1/ 
0015  1* 

0016  I* 

0017  2U 
00)8  ?1 
0019  _i2 

0020  23 

0021  2* 
0022 . 23 

0023  2* 

.........  0023  g, 

0023  za 

.........  0023  23 

0023  30 

0135  .31 

0136  32 

0026  3-* 

0527 1?. 

MAGNI TUDE0028  3» 
0029  3* 

1Y< ARRAY003Q  .37 

0031  3* 

0032  39 

0033 *0 

003*  *1 

*2 

.0035  _ *3 

0037  ** 

0038  *3 

0539 4* 

00**  */ 


•PUT  HORIZONTAL  SSCALf  marks  IN  IS'  array* 


IF | INL-1 I .NE.LINEI  GO  TO  |60 
00  155  n. 12, 102/10 
Sill) >0 1 3 I 
CONTINUE 

* IDENTIFY  CURRENT  PRINT  line  number  ••*♦♦♦** 

NL«5 1 “N 

START  01 Ml HI SHI  Mo  L80R  UN  DEPENDANT  array  line  i»o. 
00  250  12. J, NPTS 
X*NPT  S* 1 2,1 

M«  IV (K  l«V, 1 I I /OY.5o*0* 083*333 
IFIM.EO.O.ANO. ISCAlE. LU-1,  M»l 

IFIK.E,— I .ANO,Nl»EU, I • anO* ISCALt.CU'O)  GO  TO  200 
If  (K.Ei;.l.ANl)«NL«Nt.I*ANO*ISCALE.EO*OI  GO  TO  250 
|F IM.EO.O |M«| 

IF IM-NL |2f0»200» 175 


......  00**  *8 

00*5  _.*9 

00*6  50 

00*7  51 

05*8 5? 

00*9  5-1 

0050  5* 

0051 S3 

0052  5* 

0053  57 

005* 68 

0055  59 

0056  60 

_0057 61 

0058  *2 

0059  63 

206Q 4* 

0061  63 

0062  66 

006*  — 4? 

.....  006* 

006*  69 

006*  70 

006*  71 

006*  72 

006*  73 

006*  7* 

006*  73 

0065  76 

0066  77 

0067  78 

0068  79 

0068  80 
_ 0185  81 

0185  82 

0068  83 

0069  8* 


hHITc  (6a 7nlO) I2aKaMaNLa  V U ) 

E«ROR  In  m CALCULATION 

eO  To  2*0  _ 

CONTINUE 

calculate  location  in  s Array  f«r  Data  point  I.d* 

Il»(X<K)*xl l/OX*10o*2'0b  

Sill  1*0(2) 

CONTINUE 
CONTINUE 
j*NPT  S 
eO  To  275 

J*12  

n*n*i 

TEST  for  scale  MARk  LOCATION 
IF (MaRK.Nf  *0)00  TO  35U 

PLACE  VERTICAL  SCAlE  MARK  in  'St  ARRAY 
IF [ s ( 2 I .Nt  .G( 2 ) ) S(2I*GI4| 

RESET  MAHk  INDEX  _ 

MARK. 6 

CONTINUE 

GENEHATE  nNE  LINE  OF  PL-ITtiNG  

kRITEIA.S) 

OECREMEnT  Mark  index 

RANK. MARK. 1 

TEST  for  I AST  line  TO  DETERMINE  plot  is  COMPLETE!) 
IFINl.GTM  1 GO  TO  100 

ENO  OF  plot.  print  MAXIMUMS.MINIMUMS  & SCALES 

WHITE!  6,7n20)  XMAX,XM1na  XSCALEa YMAX,  tmIN."  YSCAL.E  ' 
RETURN 

formats 

3 FORMAT ( 1 H I // I 

3 FORMAT I9X, 'ERROR  M IS  GRfaTER  THAN  nl  l«  '7 13a' 

I < I 3t ' NL.  'aI2a'  YIKI-  1 . G 1 2 • 6 ) 

B FCRMaT I 36xa 'XMaX  • a G 1 2 • 6. 1 »*»  XMJN 'a012»6a ' 

1G12.(j/3&X. 'YMAX  • , G 1 2 • 6 a 1 »*»  YMIn"  'aGi2T6a' 

2G 1 2 1 6 > 

end  

im:so,lO) 

IM:CIa05aS79R00:FI 


0070  85 

0071  86 

0P72 87 

0073  88 

0074  89 

ooz5_ag 

0076  91 

0077  92 

_0O?8  _ 3* 

0079  99 

0080  96 

goal ?6 

0082  97 

0083  98 

0084  99 

0087  100 
101 

0095  102 

0096  103 

0097  10« 

oo?e„_jQb 

0099  108 

0100  10/ 

21 C 

0102  109 

0103  110 

2124-111- 

US 

113 

♦ ♦♦»♦♦»> UL 

Its 

********  116 

Lll_ 

K"  ' a 1 3a  ' M«  ' 118 

H9 

_*  *♦ XSCALE  'a 1 20_ 

***  YSCALE  121 

122 

12? 


IBIS  PAGE  IS  BEST  QUALITY  PRACTICALLY 
(ja<PX  iJBKISHED  rODDJJ  — — ^ 

' cup  c 1 a so 

subroutine  tmck  0001  1 

IMPLICIT  pEAL*8(A-HaO-Z>  2 

C member  name  S79RTMCK  ~ 0002  3’ 

C MEMBER  Name  S79RTMCK  Takfn  from  S79RUERV  0003  « 

C TMIS  ROUTINE  IS  only  entered  IF  input  PARAMETER  atmck  IS  GREATER 0003_  6 

C TNAN  0*0  ~ OOC 3 6 

c tmis  routine  calculates  frequency  0003  / 

C NeTE  FOR  DOUBi  E PRECISION  T TEST  IN  LINE  U0620000  SHOULD  BE  'E10’_  0009  « 

REAL.9  XKsaXKIaXKR.AXKaCHijq  " ~ “ ‘0009  9 

INTEger.4  Blank  0006  10 

DIMENSION  FREQ(50a6I  11 

DlMEliSION  SINCMSI6  | aCI  Ji  9sol  aDAI  ( 91 ,00I8|aDF(6  I aDI6|  a AI  AI  JT  (9)  a 12 

1 API9)aS1(»F  I 6 a 45  ) 13 

COMMON  /BlANKI/  XX(50IaXY,50I»XZ|50),XLI50)aXM(50Ia  _ 0006  1* 

1 XM  SO  1 aDpX ( 50 ( aDPy t 50  I aDp2 (50  I aQPL 1 50  * a DPMI  50  I a DPN ( 50  I a PI N I 50  I a 0007  ’ 16 

2 0IN|5C)arIN|5o|aXI1(SOIaxI2i60)aXI3(5O)aXI4|50|aXI5(50)aXI6|50)a  0008  16 

3 XXK(C85I.XYKI085I . XZK ( 085 | a XLK ( 08S I , XMK ( 085 > a XNK 1085 > » XX J I 085 ) a 0009 17 

4 X Y J(  085  ) . XZj(  085  ) # XL  JU'B*  ) a XM  J ( 08b  ) , xNJ|  085  ) A ' 0010  18 

5 OEL I ( 5n I aPOLDI 5o I aUOLOi SO  I aROLOI 50  I /UOLDl 50  I a VOLDI 50  I a 0011  19 

6 MQLUI5Q)  .XQlD|50>aYOLOi5>.),2ulD(50|,P|NC150)aQ1NOI50IaRinO!50)a  0012  20 

7 C*  I J(  085  1 a MYI  J|  085  I a’TZI  J(  c85  I aPHIOlD  ( 50  I a THEOLD  I 50  I aPSIoLD  (50  I A 0013  21 

8 T PE N I 085  ) a TRUPT  I 0r5  I a I)  T Mx  1 F 0014  22 
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COMM cN/cCn ALL/  C(6»OHb)»P,fiOI'U|50)/f)(bCI<U(50l<V(5o)»K{50)»X(50)<0017 
1 Y |50>*Z IbO) A*1 (9>,AJI9) a XKREK  I 6a  8b  ) , SC  ( 50<  3 I A XC  I «•  I a 
A XKI3060 I .XI (5o )a 

2Yl  (SoIaZI i 501 aXYI (501 »XZ1 1 50  > a YZI (bo |a M J(9 I aBI J(*SO I aUIJ( 765) a 
3 CRI(085),OAI(450)AVEt(bloiAWUrt50liPMl(5J)ATMETA(5o>APSI(50X  00?0 
A PD81 I 5c  > . BOOT | 50  I a ROUT  I 5o I a UOBT ( 50 ) , VO0T (50  I a MOOT (50  I*  XDOT (601a  00? 1 

6 YDOTt5ol,Z08Tt50),PHlOOT,50lATHEOOT,bO),PSlDOT|bO),TIME,DELTATA  0022 

6XACCl50lAVACC(50lAZACE(bO|,AlTAJ(9l,Al08T(9)AFMBAR(6,8blA 

A OtLpMO ( 3c60 I a 

7 PH 1 1 JI085 I a THCI J( o»S I « PS  I I JI085 ) a SUmDF ( 6 a 085 ) a T 1 T lE ( 20 ) a 002* 

8 XLBaR(50.3 I/FsPBARI 50  a 3) , vEE00T(3A3),DX(b0)ADY|50lADZt50)A  0025 

8 0PIN(&0I,DQIN<50)aDRIN(5O)a  0026 


COMMON 


SEIJ(085|AOtIJ(A,8  5lACEIK(5oA3)A  TMAX 
I COMAL/  MaXNNjMAxIGSaMaXTBl,  INOPa 


A NMa IQS, JpLOTaNPLOta IPLSW, IP, IPlCa 1 , j, I PLOT ( Q 1 0 ) a 1 0 | 085 > , JO  I 085 ) a 0029 


a M510  ) aNn(50a  31  a IsPISOa  3 I JPK ( 08b ) , (OPLOT ( 0 1 0 > 
OA|A  BLANk/'  •/ 

StRTiU).  r.  SORT  ( G ) 

S I N ( o > - DsIN(Q) 

ccs(gi-  Oros(Q) 

AHS(Ql*  DiBS(O)  

fho*o • 

DO  all  The  ( A I ) ( (Aj) ) 
oe  2o00  Ii<ASS«1,NM 
I*IMaSS 


0030  38 

00*  2 39 

C0*0  AO 
00*1  *1 
00*2  *2 
.QQ43__i3_ 
00**  ** 
00*5  *5 

00*6  * 6 
00*7  */ 

006*  *8 

0065  19 

0066  50 

0067  51 


00*5  *5 

00*6  46 

00*7  */ 

006*  *8 

J * 9 » ( I - 1 ) 0065  *9 

C MOVE  A 1 S TO  nLD  A1  S 0066  50 

00  * JJ  - 1 a 9 0067  51 

A l ( Jj  I •Bl.l<  J*  JJ  1 _ 52 

* OAI(JAJJ)  • B 1 J ( J* JJ ) 0068  53 

C (27)  0089  5* 

C DO  loco  is  MA(N  00  LOOP  TO  GET  TOTAL  INTERNAL  FORCES  AND  MOMENTS 0090  6b 

ILASt  * 0 0091  5*> 

IdLlj  * 0 0092  57 

IJKLIJ  » .36  . . _ 0093  .58 

00  luOO  Ij  * 1,IGS  009*  59 

IdKLIJ  • I JKL I J*36  0095  60 

JJKK  • UxLIJ-6  0036 tl_ 

IdLlj  ■ I JL I J*6  0097  62 

IdL  » I JL 1 J 0098  63 

1 ■ I G ( I J 1 _ J 0099...  6V 

J • JGIIJ)  0100  69 

C**«*»CALCULATE  CONNECTIVITY  . 0101  66 

lF(I.NE.IriASS.AND.J.Nt.lM4SSI  GO  TO  i000  _Qlfi5 i' 

C IF  HE  GET  TO  A NEW  I WE  MUST  MOVE  (All  lNTO~Al  AND  (Aioet)  INTO  A I DOT  0103  6» 

I F I I • ILASt  * 20a  30a  20  010*  69 

20  ILAST  • 1 0105  70 

IS  • 9*11.1)  ' ~ 0106  ’7l' 

08  320  KS  • 1 a 9 0107  72 

IS  • IS*  1 gi£g 74 

QAIIkSI  • eAI ( ISI-BIJI IS)  ' 0109  7* 

320  A 1 1 KS I • HiJIISI  0110  7b 

30  XlJO.OXIdi  IJ)  76 

V I JO  ■ OY I J ( I J ) out  ff 

ZldO  • OZ I J ( IJ)  0116  78 

X 1 J*X  I J ) *x  I I I _ J9_ 

YlJ*Y( J)-Y( 1 ) ' 80 

ZIJ*Z( Jl-Zl I I 81 


16  • 9*( J.l  | 

IdS  • 9»( iJ-1 ) 

08  3 1 0 KS  ■ 1,9 
IS  ■ I S* 1 
IdS  • IJS.1 
A I J( KS  > • D I J ( [JSI 
310  Ad(Ks)  • HiJIISI 
(*)  PERTURB  IMASS  UNIT  UEFLrCTION 

0X1 Imassi.i. 

OY  i lMASSl.1 . 
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OZIImASSIaI. 
Tl*Ox< Ji-n*( I ) 
T2*0y(J|-cY( I I 
T3-DZI Jl-rZl I ) 

C IS) 


-QA23  3a 

0126  90 

0127 

0128 
0129 

TAa  Al(tl.Tl*Al(2l»T2  + Al(T;.; J-0A l I 1 > *X I jO-DA I I 2 > 4Y I JO-DA  I I 3 ) »Z 1 jOo 1 30 
Tb-  AllAl.Tl*AI(5)*T2*Al(6, * T 3*DA I • A I *X I JO-OA 1 1 5 I *YJ JO-OaI ( 6l*ZJje013l  99 
T6«  Al(7)*Tl*AI(8)*T2*Al(0  ) *T3-DAI  I 7 1 *XI  JO-OAI  I 8>*YI  JO-OAI  |9|*ZI  J00132  *100 


ISIS  TAOS  IS  BE*  SUmiS™**®***  ~ 

^^SalSHfflWBX!  -C _ 


9b 

96 

97 

98 


C 19) 


OUI  • Aljl  1 I*TA4AIJ(2  I*TB+AI  Jl3)«Tb 
D ( 2 ) • Alj(4 )*T4+Al J(b)*T*»AlJI6)*T6 
013)  * Alj(7)*TA+AlJ(BI*Tb+AlJ(9l*T6 


AlTAjI 1 | 
A 1 T A J ( 2 ) 
A 1 T A J ( 3 ) 
AlTAj(A) 
A 1 T A j 1 5 ) 
A 1 T A j ( 6 ) 
AlJAjI 7) 
A 1 T A J { 8 ) 
A 1 T A j I 9 J 


A I ( 1 ) * A j ( 1 » ♦ A I 
All  4 ) *A  J I 1 )*Al 
All  7 IAAJI 1 l*\J 
Aid  |»AJ|4  U*I 
A 1 (A  |*Aj(4)*Al 
AI(7l»Aj(AI*Al 
All  1 I A A J | 7I*AI 
A 1 IA )*Ajl  7)*Al 
A l I 7 ) * A J I 7 I *A I 


I?)*AJIR)AAI|3I*AJ(3) 
l h I *AJ| 2 I *AI I 6 ) *A J I 3 ) 
(RI»AJ(2>AAH9)*AJ13I 
I a | »AJ| 5) +AJ  I JloAJI 61 

,B)*AJ(5I+Al (6)*Aj(6r 

( 8 ) »AJ|5 I *AI I 9 > *AJ| b) 

( 2 ) a A J ( 8 I ♦ A I ( 3 ) »A J | 9 ) 

I 5 I AA  J I 8 ) A- a I I 6 ) AA J ( 9 ) 
(8IaAJ(8I*AH9|aAJi9) 


L PERTURB  IMASS  UNIT  ROTATION 
DF  I N ( IMaSs ) »1 • 

OlilNl  IMASsi-1* 

ORJN( IMASs )“1 • 

T 3 a OH  IN ( J ) 

T2  • DOIN(J) 


0133  101 
_ Q 1 3A  1Q2 

0135  103 

0136  104 
_ Ql37_lQb 

0138  106 

0139  107 
01AO  10« 
0 l A l 109 
0 1 A2  110 

__oi*a  m 

0 1 A A 112 
01A5  113 
01A5  l|* 
01 45  lib 
01A5  118 
01A5  117 
01A6  118 
0 1 A7  119 


T 1 • OPIN(J)  

jA  a TIaAiTAJI 1) »T2AAl TAJ, » )+T3»A1Taj( 7 (2) 

T5  a T 1 aAiTAJI2  |aT2AA1  TAJ(p  | *T3aAITAj(8  I-OQINI  I I 

T 6 • TlAATTAJI3|ATpAAlTAj(<,)AT3AAlTAJl9j-0RINm 

C t9«) 

0 I A ) • Aljl 1 |atAaAIJ|2)aTsaAIJI3IaT6 

0151  ■ Aljl A|aTA*AIJ|9IaT5aAIJ(6|aT6  

0 I 6 I a AIJi7IaTaaAIjI8)aT5*aIJI9)aT6 
0X1 (MASSIaO. 

0Y| IMASSIaO. 

DZI IMASS) aO. 

DPIN( IMASsIaO* 

06  IN  I INaSr I >0  • _ 

DP  IN i IMASs ) aO» 

C*a.**FMBAR  mas  VDBARI I/J/K/LI  in  IT  NON  I7AU01972I 

DC  150  K a 1/6  

IJKK  • IJkKa6 
IJXL  • IJkK 
UL  a IJL-6 
Of  IK  I * 0.0 
DO  150  L a J»6 

IJXL  • IJxL+1  

UL  • I JL  a 1 
T P XXI  IJkU 

IP  I T I 160,  150/160  

160  A ■ DILI 
19C  OtLFM  • T»A 

CaaaaaFCR  DECOUPLED  FREQUENCIES 

IF  (X.GT.3.AN0.L.GT  .3  I OF  I « I aDF  l K ) AL’ELFM 

IP(K.LT.A.ANO.L.LT.A)  OF  Ik |aDFIK)*OELPM  

150  CONTINUE 

00  9c00  X.1,6 

9000  OIX)aOF(X| 

AlAljTIt)  • Al 1 1 l*Aljl 1 IAaI I A I aaIJ(2) «AI ( 7)«Al j|3) 
AlAIjTlA  I - Al ( I l*llJ( A I *AI I A l»Al JI51  + AI  | 7 )»Al J|6) 
A 1 A I JT I 7 ) ■ Alll)*AlJI71»AI(AI»AlJI8l*AI(7|*AlJJ?i 
A 1 A l jT 1 2 ) • Al i2»*Al Jl 1 ) *\l (5l*Al JI2|**I i 8 i »Al Jl 3 1 
A I A I jT I 5 I ■ Al i 2 )»Al Jl A I ♦»! (5  I »M JI5 »*AI ( gl.Al J(8 I 
A I A 1 j T I 8 > ■ Al c 2) aaI Jl 7 )♦, f (5) *AI JI8 I *Al ( 8 )»*I J|9^ 
A 1 A I jT I 3 ) > Al I 3I»a1 Jll )♦» I |6)*aI JI2 I »AI (9 |*Al j(3) 
AlAljT(6>  ■ AI|3)*aIJIAI«4I|6I*AIJI5|AAI(9|«a(J|6) 
A 1 A I J T 19)  ■ A I |3I»A1JI7|»4II6)»A1JI8|«A|(9)»A1J|9> 
C 1 1 3 A ) 


0148  lgo 

01A9  121 
0150  128 
OlSl  123 

0152  I2A 

0153  12b 
0154126 

0155  127 
0155  128 

0155  129 

0155  130 
0155  131 

0155 138 

0155  133 
0157  13A 
0158  13b 

0159  136 

0160  137 
9161  138 

' 0162  139 
0163  140 
0164  141 

0165  142 

0166  143 
0167  1*A_ 

0168  14b 
0169  146 

0170  147 

0171  148 
0172  .149 

0173  150 

0174  151 
0175  152 

0177  153 

0178  154 
0171-lSb. 

0180  156 

0181  157 

0I82_1?*L 

0183  159 

0184  160 
Olll-lAJL 

0186  162 


232 


T1  * I.DII  |*AlAI  Jr<*>*D|2)*AlAl JT(7|*0<3I 

T 2 • AlAljT(2l*D( I )♦*(*( JT<5I*0(2)a»iaIJT(8I*D(3> 
T3  ■ AIaIjT(3I.D(1|*AIaIJt<6IaD(2>aaIaIjT(9>*D(3> 
0(11  ■ Tl 

o(8)  ■ re  

0(31  • T 3 
C (1381 

T1  • AUI  |1  < 1 >*D(«  |AAlA)  Jr(  * l*0(5>AAIAlJTI  ?|*0(6L 
T2  • AlAljT  (2)*0(*|AAlAlJT(5l*0(5>AAIAljT(8')*0(6l 
T 3 ■ AIAI.|T(3I*0(*I*AIAI  Jt ( 6 > »0 ( 5 t ♦ A I Al JT 1 9 1 *0 ( 6 > 

0(A)  ■ T 1 

0(61  • T2 
0<6)  ■ T 3 

IH  J.EQ.IMSSI  00  TO  181  

C ( 1 7 A ) 

OXX  ■ -(Aj(l)*0(ll*AJ(2l*n<2l*AJ(3>*0(3>| 

OXY  • -1 Aj( A l»p( 1 UAJ(S)»n(2IAAJl6l»D( 3)  ) 

OXZ  • -( A.|(  7 !*()(  1 l»AJ(  8 l'«n(2  l+AJ(9  l »DI  3)  ) 

XMJl  • XxlJI+OXX 

XYIJ)  ■ XyljMOXY  

XZIJ)  • XzlJI+OXZ 
C ( 1 7B  I 

D»L  ■ -1  A it  i >*oi  * >*AJ(2)*n(5)*AJ(  31*0(6)  | 

DXM  * •)  Ajl  A )*D(  A l*AJ(b  l*o’(5)AAJ(  61*0(61  | 

OXN  • -|Ajl7l*0(A)*AJ(8l*n(51*AJ(9l*0(6) | 

XLIJI  ■ X,  (J)*0XL  

XHIJ)  • Xm(J|*(jXM 
XMJl  • Xfc  I J | *OXN 

111  I F | J.EO.lfASSI  GO  TO  1000  _ 

C <1*U) 

C HANSFpR  flF  moments  not  REU'D  EH  9-3-76 

C (16A)  

OXX  - AI 1 , )«0( l )*AI I2>«L>(»|*AI(3)*D<3) 

OXY  • Al ( * »*D( 1 I *A1 !5)*0( 2|*Al (fc)*U( 3) 

OXZ  • A I ( 7 ) *0  ( 1 ) *A  1 ( 8 1 *0  ( 2 ) AA I I 9 ) *0  ( 3 I 

XX ( I 1 ■ Xx ( 1 ) *DXX 
XYlll  • Xy( I )*DXY 

XZ I I I • X7 ( I ) *DXZ  

C 1168) 

DXL  * Al I t I *01  * |*At (2 l*U(S)*Al ( 31*0(6) 

OXM  ■ AI  ( , I *D(  * I *AI  ( S I »D(  m *AI  ( t ) *0|  6 I 

OXN  . All7)*DI*)*AII8>*0<s>*Al(9|«l}(6) 

XL  ( I I * X,  ( I I *DXL 

XT'  ill  ■ Xt. ( J )*OXM  

XM  I I • XudlAOXN 
10C0  CONTINUE 

C FINISH  Cl'HPuT  #Ng  OeRIVaTIYes 
1-IHaSS 

C 00  CRASH  FOrC#S 

CO  3*0  K . 1,6  . 

3*0  XC|K|  • C.O 
C (20)# (23), 12*  , 

SXMxl  1 ) * x 0 I 1 ) 

SY*Xy( 1 1 a x C ( 2 I 

SZ*X2  I I I *xC(  31  

SL  • XL  ( 1 ) AXC  I A ) 

SM  • XM  ( I » +XC  1 1 ) 

SN  • XN ( 1 ) AXC ( 6 ) _ 

C MASS 

PP*P( I I 

RR»R(I)  __  

CC*0( II 

NGTI*386>/KQT(I| 

FHtOl 1*1 ).IA8S|SX*hOTI ) )**.9 
FREQ  ( I/2)*(AB8tSY»wQTl ) )**,5 
FHEOl I#3)*IABSiSZ*hGT1 >)**.5 

C (26)  _ 

FRED ( l#*l.( ABS(SL/Xl ( 1 • ) 1***5 
FREQ ( 1#S)*( ABSiSM/yI I l ) ) ) ,»•* 

FREQ ( I#6>*< ABS,SN/ZI ( I I I I. *.5 


0187  163 
Q1(B  _16* 

0189  166 

0190  166 
0131  16 L 

0192  168 

0193  169 
0 13A-17Q 

0195  171 

0196  172 
01 92-173- 

0198  17* 

0199  175 

0?00  .126. 

0201  177 

0202  1 7* 
0203-12.9 

020*  ISO 
0205  111 

0206  1*2 

0207  183 

0208  18* 
0203-116. 

0210  18* 
0211  187 

0?12_li*. 

0213  189 
021*  190 

1.11. 

0216  192 
193 

0220  }9* 

0221  195 

0222  19* 
0213-JS-'. 

022*  198 
0225  199 
Q226  2Q0 

0227  201 

0228  202 
SL2?9_2jQ3. 

0230  20* 

0231  206 
0232_  2fl6 

0233  207 
0237  2Q« 
02*2  20» 
02*3  210 
02*9  211 

0250  212 

0251  213 

0253  21* 

025*  216 
0255  21* 

0256-21/. 

0267  218 
0258  219 

D2§9  220 

0261  221 
0262  222 

Q?A3_223_ 

026*  22* 
0265  225 

Q266  2 J6_ 

0267  227 

0268  228 
5?6 !_8*? 

0270  230 

0271  231 

0272  232 


233 

XBIS  PAGE  IS  0*--*  -- 

gUKHliaHiuLi  Iw 


9060  DO  7y95  KN-l.h 

7995  IFlFPEOl t ,KK> •GT.StlJt l » ) SE I J t 1 I -FREQ  I 1 . *K I 

iFIStl  Jll  I •r.T'FROI  FRU*SEtJ(II 

2000  CONTINUE 

FHQ-FRQ/6. 283192 
PEHIeO»l .n/FRO 
PtR*TM-PE(ilOO/H. 

PRINT  799 «.  FRO.PErIOU.PEr.TH 

79  99  FORMAT  I iH, .801  lH* I//2X. ' Ma xFREQ* i. Ffc . t . 'HZ'.6X. 1 PERIOD*  ' , F8  • 6. 
I 6X» 'PtR«rM.'»F8*6| 

PRINT  8009 
PRINT  800r 

8000  FORMAT  ( 2x  < 1 MASS ' *X. ' OMLOa  i 2 3 

i*  5 „ max' i 

PRJNT  «00?/  (KK,  (FRe(J(<X»Ul  IjLLM#6I,SEIJ(KK|<KK«1jNI11 
PRINT  80O9 

8003  FORMA I (2X, 8J( lH* I t 
8002  FeRMATIlX. If,AXi7Fi2.2) 

RETURN 

END 

! ASS  I M'.SO,  LO  ) 

.'ASS  (m:CI/05,S79RAM;f  I 


0273  233 
0276  23* 

0275  230 

0276  238 
237 

13* 

0272  239 
0279  260 

24? 

262 

263 

OZ«E  .26* 

A 1 / 0283  269 
028*  2*6 

Q285  26 / 

0285  26* 
269 

0286  250 

0291  251 

0292  25* 


ICUP  CI.SO 

CUBRijUTiNf  R5TRT  I RST I ME , *pRS, NCODE ) 

IMPLICIT  REal»8(A-h»0-Z) 

C MEMBER  nAME  979RSTR1 

REAL.*  K«i 15).SLflPF.XNS.X„i,XKR,CMU0  ___  

INTEGER**  XMA. YIELD.PLAST 

DIMENSION  BLKU  329b  I . IBLK, 2«8 I » XMA ( 152 I * COMU 1 3528 ) , l COM | 1 098 ) « 

1 D76( 1200 i.DERl 863 I.0LH1 (4 | , X I 7* ( 7 ) , J NO  I 1 0 1 9 ) . I PER ( 1 70 ) 

DIMENSION  COMI 3206) . 100(258  I 
DIMENSION  PlYI 1700 ) . IPL T (bH0 I 

OIMEnSION  VARC ( 9 I 

DIMENSION  0LG (1701 
DIMENSION  NPLT(213),SSTIT, ion 
CCMM.iN/vAfSTP/  DCLtMN.Oi  L9  7,r.  r.R,EEO,  EHOT,  error 
i#tmx,ttmx,tttmx 

DIMENSION  ICCS16O) 

DIMENSION  VMAX?(6.085> 

DIMENSION  XK3(b.6.o85» 

DIMENSION  NpaP ( 2 ) 

CCMMON/lPT/INPAP, IpaP 
CCMM0N/INt75/NV 
COMMfN/PNoS/PNI 85  I 

CCMMnN/iOfRV/IRUPSrI 08  b I. tpENSW|0R9 ) 

COMMON  /BiANKl/  XX | 50 ) . X Y , 50  I . X Z ( 50 ) , XL ( 50 ) . XM ( 50  I . 

1 XNI50).DpX(50I.DPY(50I.DP2(bO(»DPL(bOl»DPM(50I.OPN(50I.PIN(50l. 
CIN(50|.wIN(50l,Xll(9ui.xt2(50).Xl3(bOI.Xl*l50|.XI5(50),xI6l5o). 


_Q50l. 


XXK  ( 085  ).  X yx  ( ()85  ),  XZK  { 08s  I.  XLX  I 08t> ),  XMK  ( 085  I.XNKI  085).  XX  J I 085). 

X t J I 085 ) .XZJI08S)»XLJI089).XMJ(085),XNJ(085H  _ 

UtLI (5f ).POlD|5o).ROLO|5O).R0LOI5o>' UOLD |50). VOLO  T50 1 * 

"PLi:  150  • . X.0L0I50  I , YOLO  I b:.  ) , ZOLD ( 50),PINP (5OI  . 0 INO  ( 50  I . R I NO  I SO  I . 
exIj(085nPYlj(08b).eZIJ|oa5l»pMlOLD(50I.THEOLD<50)»P810EOl50)» 
TPE,.(085).TRUPT(085)»UrMALF 
COMMON  / IhLANK/  I JkK . KPLN, kRUP T , I PEN  I 085 ) . I RUPT ( 085 |. JRUPT ( 08b ) 

COMM()N/mA  i NCF/  JPMINT,  ITPLOT.  IBS(50.3)  

COMMON/CO- All/  C(6,08y|.P,50'»U(50l,H<5o).U<50i»VI5ol.R(5;)>.X(50l 
1 Y|bc).ZI.,0),Al|9),AJl9),XKREF(6.8b|,St(60.3I.XC(6|, 

A XXI3060 I .XI (bO), 

2Yll5ol.ZI(5oi.XYI(50I.XZtl5oi.YZHSO).AIJt9).BIJ(*5o'>»DIJ(765)'. 

3 OR  1 1 085 ) .OAI ( *50  I . VEt ( b 1 n | , WOT ( 50 ) . PHI  1 50 ) # THET A I 50  I » PS  I ( 50  I » 

* POOT (5o  I .UOMT |50> .ROOT  t5n).UD8T (50), VOOT ( 50 1 . ROOT ( 50 ) . XDPT ( 50 ) 

5 YOOT(5ol.ZO0T|5OI,PHIOOT(5OI. THEOOT I bO I . PS  I OBT ( 50 ) , T I ME, OELTAT. 
6X6CC|50).Y6CCIb0I.ZACLlb0|,AlTAJ|9l.AlD0T(9).FMBAK(6.SS|, 

A CELFMO  1 3,-)6Q  ) . 


mis  PAGES  16  BJ8ST  QUALlW  P1UCXICABU* 


1 

2 

0002  3 

. 0006  _ 8 
b 
6 

7 

8 

9 

19. 

1» 

12 

13 

1* 

l9 

0005  1* 

0005  17 

1* 

19 

20 

8> 

0005  22 

0006  23 

0007  2* 

0008  29 

0009  2* 

0010  ?7 
0011  28 

0012  29 

0013  30 

0016  31 

0015  32 

9916_J3 

.0017  3* 

3*> 

36 

37 

0020  3* 

_002} 39 

0022  60 
61 
6* 


r 


10 


20 


7 PHI|JIoB«,),THEIJ(o891,PSt t J 1 085 > , SumDF 1 6, 085 ) , Tl TLE 1 20 | , ~~  0024  43 

8 xL8aR(50.3|»FSPB8R(50. Jl >vEEOOT(3*3)<OX(BO)»OY|50),OZ(50)»  0025  44 

1 OPlN(5o>,DQIN|50),ORIN|5n),  002$ 45 

8 SEIJl085»»OEIjl08S)»CElKI5o,3f,  T MAX  0027  46 

COMMON  / rCOMAL/  MaXNM,  I IA*  I GS,  MAXTBl,  I NOP,  0028  47 

4 KM,  1GS,  JpL15T»NPLOT»  I PUSH  , 1 P,  1 PLC  » 1 , J,  I PLOT  < 01 0 I » I G I 085  ) , JG  I 085  I ^ 0029  48 

B N 1 5 1 0 t , Km  ( 50,  3 1 • I SP  ( 50, 3 ) , I JPR  ( 08b  | ilOPuOT  { cTl  0 ) ' ' " 0030  4* 

C0MMeN/0P74/XMUI50,3)>X8E|50*J>,Sl 150,3 l,SA( 50,3 l,SB( 50, 31,  60 

2 Sf(50,3(,FSPOl(50,3(,PSPt?F(50,3)  0033  91 

ceMM(;N/0ER In/Hex  1 5o  > »HE Y I so  > 'MEZ1 50) , ALIFT i 50 ), VHAX  (5101 

1 ,PMIUP|5n),TME0P(50),PSIOP|5Ol,PHlPR, THEPR,PSIPR 
COMMoN/DE» I N1 /XNBAR, XMBxR ,ynBAH,yPBar,ZNRAR,ZPBAK 
COMMON  / 1 n74/  Z0,XGD0r,Z000T,Y0D0r,PPN,0PR,RPR 
COMMON/ 1 N TG/  InOUF(50), Hi  121  I , KK I 1 2l I , I R 1 1 2 1 ) , JR ( 121  I , 

1 101 121 ), JQ| 121) ,LOI 121 |,NPQ( 12i |, IKCT 


COMMON/  Cl'MPLY/PH0P120,3),pTlM,TMeL|085);CKPT(68b,4,8),EALW(085,4 
COMMON/  IfOPLY/  NE|085),Nps,NI0(08bi,NCP(085|,NS,L3 
COMMON/  PyLP/SIG9l085,4),TXYI085,4),TXZ(085,4l,SU(085,4|,SV(085,4 
CeMMeN/tPvL0/YlEL0(083,4) ,PLAST(085,4I 

COMMpN/LlnES/XKSl 1200»,*KP( 1 200 ) , NLSFlG 1 5 1 0 ) » CHUO 1 120) 

COMMON/ ICkYH/NsYM 120), IS0F|40) 

COMMON/SOfCO/SDF 1 85 ) 

C0MM0N/0UaR/PTm0185)  , YA,i(Ji  85* 

CeMMtiN/pL.^T  1 / NMPLnT,NMFT(5,4  0l,  1SCalE<5),KTYPE152,NPTC,KPLT 
COMMON/  StITLC/  SUo I (5, 20), PUTT 

ECU  I VALENCE  INPLII 1 l,NOPLOT ), ISSTITi 1 |,SUBI I 1, 1 I ) 

EUUIvALENrElDLGl  1 ),PTMtJl  1 )) 

ECUlvALENrEl IPlYI 1 |, Y1EL0| 1, 1 I ) 

ECUlvALENfE  1 ICCSt 1 ),NSYM, , ) > 

EOUlVALENcE  ( V ARC  1 1 ) , OtLTMN I 

EQUIVALENCE  (BlKI  I 1 ),xxi  1 | ),  I IBLKt  1 ),  I JKK  ) , (XMA(  l I, I PR  INTI," 

1 (COMLI 1 ),C( 1, 1 I ), I ICON! 1 l.MAXNM), (U7*( 1 |,XMU( 1 I I, (DERI  1 |,HEX(l I I, 

2 IDtRl I 1 I , XNBaR ) , I XI 741 1 ,,ZG), ( INC  I 1 |, JnBUF (1)1 

3 ,1  I C>£R  , 1 ),  iRUPSwl  1 I I 

EQUIVALENCE  (VMAXI 1 ),VMAX?( H I _ _ 

EQUIVALENCE  IXKI 1 l,XKJ| 1, , , 1 ) ) 

EQUIVALENCE  (COMl  1 ),PNI)R|  ,,1  I I,  I ICOl  1 ),NE  1 1 I ) 

EQUIVALENCE  (Ply! 1 1,S1GBI t, 1 ) ) 

EQUIVALENCE  1 NPAP 1 1 I , IN/Ap | 

NAMElISt/cHANGe/IPhINT, 1 TplOT, IBS, Tint* DELTA T»T I TLE, 

1XLBAR,FSPrAH,TmaX,  rNOM,  1P|  C,  iplot,  IJPR,  ipp  .ot,xmu,xke,_ 

2S!,Sa,SB,RF,FSP0!,FUP0F,Ai  IFT.VMAX,  xnIiAR , x^BAR , YNilAR,  XZI , 
3YPBAR,ZnBaR,ZPBAR,EEQ 

H ,XKs,XkI.XKR,XX3,nFSFLj,chUG,VmaX2,ptIM,  ;>ROP,TMEL,CKPT,EALW£_ 

INCS«NE,NlC,NCP,NS,NSYM 

J,ISOF,SoF.INPAP 

X , SUB  I, PLtT, noplot, NMMT, I SCALE, KTYPC,NPTC,KPLT 

PRINT  320,  NCODE 

IF  ( NCOOE  *C,T  ,9  I GO  TO  900 

READtl)  SaVTMjSAVDt  _ 

PRINT  310,SAVTM,SAvDT 
IF  IHSTImE.lt. SaVTM*SAVD1 ) GO  TO  20 
CALL  FILMaNi 1,1,1  I 
XTEMP-1. 

PRINT  3iO.RSTIME,XtEMP 
GO  TO  10 
NEAOl 1 ) 


0034  52 

0035  S3 

0036  54 

0037  95 

0038  66 

_ao3«_sz_ 

10039  S« 

0039  59 

10039  60 

61 

62 



64 

65 

66 

67 

68 

4!L 

70 


0040  71 

_ ri 

0041  73 
7« 

0043  75 

0043  76 

0043.  ?7 
0043  7« 

0043  79 

.5)043  90 

81 
82 

#3 

84 

85 

0061  86 

0061  87 

88 

a? 

0062  90 

0063  91 
_006»  _ J2 

0069  93 

0066  94 

-95)67 I» 


Bi  Kl,  IBLK,xMA,CSM|  , I COM,  074 , 0E«,  OCR  1 , X 1 74,  I NO 

2,  *KS, XXR, nLSFLG, CHuG, 10ER.COM, ICO/PLY 

3,  ICCs,S0F,PN, VARC  

4, IPLY,NV»0LQ,NPAP 
9 ,NPlT,S8tIT 

X T EMP*  2 . 

PRINT  310.RSTIMC,XtEMP 
CALL  FlLMtN(I,.l,|| 

RSTInE-TImE 
CALL  PRINT 
GO  TO  1 10p0, 200, 29«»200t, NCOOE 

200  RE  AO , 9,  CHANGE  • . TTrihT.l 

29.  JrInt02E,;L’0'  "ETU"H  PAM  IS  BEST  QUALITY 


0068  96 
0069  97 

-5)970 15 

0071  99 

100 

1Q.1- 


102 

103 

0074  105 
0079  10* 

0076  10 7 

0077  108 
0079  10* 

-US- 


UIS PAG®  IS  1 — 

ipo u aoexrjMasaa)  to  dog 


0080  HI 
0090  112 
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! * 


299  FeHMAT(2X,  '*»••*  ThE  FOLLOWING  kR  UblE8_HERE  NOT  USEO  IN 

IpRfcVlOUS  RUNS  *»»*»'»//> 

300  READ  31c»  « ICH,  XNPO.XUj  XJrj.XLU/XI  J 

310  FORM*  T ( 6E 1 ? • * I 
lCh*xlCH 

PR  INI  320.  ICH 
JFIICH.LT.01  RETURN 
JK«( lCH*l, 1/10 
JUUKJ-XIQ*.01 
JC  ( Jk  >«XJg*  *01 
lC( Jk  »*XLc+.01 
1 J*X I J« . 0 t 

NLSFL016*,  IJ-1  |*L0|  JKI  CJk  _ 

CHU(i(  JK  ) «x  ICH*  1 • 

NlJ*6»l  IJ-I  1*LiJIJK| 

PRINT  301  . JK»NIJ#NLSFHitNT  j| 

301  FeRMAll2X, 'THIS  IS  REST AR T ' t /2X, ' JK. ■ , 1* , 2Xi • N l J« ' , I A t 2X, 
l'NLSFLO(N| J|.',I*| 

nPGI jK 1«XkPQ*.01  

nP*  Xi.PQ*  .{il 

READ  31)1  (XKRI  ICH  + JJ)»KR(  jj|,  JJ.J/NPi 

311  F0RNAT(2E,2.A) 

PRINT  3 15,  1Q|  Jx  ) , JR  I JK  ) »L,jt  JK  >«  ICH 
15  FORMAT!  1H,^,  *KR  TABlL  F OH  I , J,  L*  ' , 315,  *X  ' TABLE  ICM»i,I*| 

PRINT  320, I JJxXKRI iCHAJjl ,kR< JJ)> JJai(NP| 

20  FCRMATliH  . 13, 1P2E15.5I 
NPMI.NP.I 
DO  3b0  JJ«l#NP-‘l 
SLOPE-KRI.iJ) 

XKSl  ICH*J.,|. slope 
350  CONTINUE 
OO  Tp  300 

00  IF (RST ImE.EQ.O. 100  TO  910  

aCffcJT  "5  « A DCT  luT  . VfEMU  Vf>  QACT  QUALITY  PIUCTICABSf 


print  3io.rstime#xtemp  — iT«PAGElSBBSTQU*I,lr* rl— — 

XUMP-A.  fYTPY  FURttlSH®  TO DDft  — — ' 

PRINT  31C.RSTIME.XTENH  IBM* 

XT£Mp*5. 

PRINT  SlO.RSTlMEiXTEMH 
910  XYZ-1PhI,.T 
PRINT  920 

920  fcrmati//. *••*«*•***  the  previous  time  increment  mas  be 
1 TARl»»*»*»*»******<M//I 
XTZ«XPRS*nELTAT*XTZ 
PRINT  310.  TIM£,XYZ 
rRITKIi  tIME/XYZ 
PRINT  310,  TIMEiXYZ 

RRlTE( 1 I RLK1, IRLK.XMA,C«mL. ICOM, 07 *, OCR, OER1 > XI 7*, I NO 
2, XKS,XKR,sLSFLG»CHuO» 10ER.COM, ICO/ Ply 
3, ICCs/SDF .PN,VaRC 
A,  IPLy*Nv»iiLO,NPAP 
5 * NPc  T<  SSr I T 
xTEMp.*. 

PRINT  3iO.RSTImEjXtEMP 
C*LL  ENoF»LI1»1I 
XTEMP-7. 

PRINT  3iO,RSTImEjXTEMP_  __  

1000  RSTImE-BStIME+XVZ 
return 
end 

I ABA  IMISO.LO) 

i am  (M:ct,os,S79Rtc:n 


the  previous  time  increment  mas  been  put  on 


_0S£Q_1U_ 

0080  1 1 A 

US 

CQB? . 1 1 6 

0083  11/ 
008*  lie 
_008S  JI9 
120 

0086  121 
0086  1 22 
” 0086  123 
0086  12* 
0086  1£S 
0086  126 
0086  12/ 
0086  12» 
0086  12s 
0086  130 
_ 0087,  131 
0088  132 
133 

0089  13* 

0090  135 

0091  136 

0092  13/ 

0093  13» 
009*  139 
0095  1*0 

1*1 

..  0097  1*2 
1*3 

0101  1** 
0»P2  l*s 
0103  1*6 
010*  1*/ 

0105  1*«. 

0106  1*9 

0107  150 

_QlflLl5>_ 
0109  1 5* 
0109  153 
_ 010?  16*  _ 

0109  156 

0110  IB* 

0111  18/ 

0112  158 

0113  159 
_01l4  160_ 

in 

168 

IS?_ 

1** 

0116  166 

011 7 n* 

0118  167 

0119  16> 

_ QlgQ  U»_ 

0121  170 
0122  171 

_fl!ea_jLZ8_ 


ICUP  cpso 

SUBROUTINE  ICIATHCk) 
IMPLICIT  r£AL*8(A-H#0-Z) 
COMMON/ 1 Nt  75/  NV 


236 


MEMBER  N*M£  S79RIC  " ' ' 0002  4 

DIMENSION  XMPR  ( 3 I a aBAMPH (3.31a ANOOPR (31/ OPR |3»3)«AI0P(3*3I*  0003  5 

1 A1C ( 3j3 ( , AOPRl 3a3|a VJP( 8nj 3 I# APR! 3# 3 I • V J P ( 3 l>Xv ( 3)  0004  b 

COMMON  / I n7  4/  Zfi*  XgDOT / ZGonT  * YGOOTi PPR»  OPR*  RPR  OOOS'  7 

C0MM0N/0P;4/XMu<50,3l*XKE,b0»3)/SJ  tSO#3)»S*|50»31» S8l50/3)<  8 

2 SFI50O)  .FSPOl  l50.3l*FSPflF(50»3l  ■ QQ33 9 


C0MM0N/C0n*LL/  C ( 6, 086  ) / P | 50  t • 0 ( 50  i » R ( 50  I j U ( 50  1 1 V I So  I » *(  50  > » X ( 50 ) 1 001  7 
1 Y<50  WlSOliM  (9),  AJOuxkREF  I 6a 85 | , SC < 50i 3 I * XC ( b | , 

A XK I 3C60 ) , XII  bo  » » • 


2Y 1 150  > a Z1 (501/XYI (SOIaXZI Ibol/rzi (501, AIj(9),BIJI450>/DIJ<765)a 

3 ORI(085l,OAI(450l,VEt(blf,),WGT(501«PHl(50)»THETA(5ol/PSI(50l/ 

4 POST ( Sc  1 1 QDOT ( 50  I « ROD  r ( 5n I > UOOT 1 50 1 , VOOT  1 50J  a NDOTjV) IaXOPTISO), 


5 VOOT<5ol>ZO0T|5OljPHmOT(5Ol4 ThEDOT < bb I , PS 100T ( 50 1 a T the, CELT AT, 
6XACCi50)avACC<S0>'ZACCI50i, A I T A J < 9 I , a I OOT I 9 I a FM0AR < *, 86  I . 

A OELFMO ( 3ntO 1 1 


7 PHII  JI0«5>#TMElJl085MPSilJ(G85>»SuMDF|6i085H  TITLEI20), 

8 XLBAH<50,3 I aFSPBARiSOa J I , vEEOOT I 3a 3 | , Ox  1 50  I a Dy ( SO  I a DZ I 5Q | a 
8 CPIMSo>,DOINl50>iORINiSoi< 

8 SEIJl085|<OElJln8SI<CElK<50<3|j  TMAX 

COMMON  / j COMAL/  M*XNM,MAxigS/MaXTBl, INOP» 

A NM,  jGS^jpl.  MT/NPLOfi  IPLSM, JP#  IPlCa  I,  j,  I PLOT  I 0101/  IG(08S  ) . JlTlOSS  I, 
e M510 1.10(50/ 3)i ISP |S0» 3 , , 1 JPR(085 ) , lOPLOtlOIO) 
C0MMi.-.N/0ErIN/MEX15oI  .Mt  ( I so  ) a HEZ 1 50  1 , *L  IF  T I 5o  ) A VMAX  1 510  I 
1 »PMlDP(5ol<TME0P(50l»PSIoP(50I.PHtPR, THEPRaPSIPR 
ECU  I VALENCE  (PPRaXMPRi HI. |QPR/XMPN(2| I / ( RPR  # XMPH ( 3 I I a 
1 IPl.IOpR,  ANOOPR  I 1 I I,  I ThEopR.  ANQDPH(2I  I,  ( PS  I OPR<  ANOOPR  ( 3 I I 
COMMoN/RP,  A/CBAR  I 8b  I * XOP  I b{,  I a YOP  ( SO  I , ZOP  < bo  I 
SINIGI-  Oc.INlGl 
C05IGI*  OfOSlGl 
ANSINIG)-  OARSINIQ) 

ATANEIF.Gi-  D A t AN2 I F j G ) 

SCBT ( G I • OSORTIGI  


rGDP 
2020  2G0P 
XGOP 
VGDP 
ZGQP 


JBIS  »- 

fB9M 


x shawm***. 


NT01  • 0*0 
00  2c 10  I « 1»NM 
2010  wTBT  * wToTVuQTItl 
XGDP  • 0*0 
YGDP  • 0*0 
ZGDP  ■ 0*0 
DO  2020  1 - IaNM 
XGDP  ■ XGop*MGTl I l*XOPI II 
YGr,P*WGT  ( I l»YOP(  I I 
ZGdP+HGTI I UZOPI l I 
XGr.P/WT'JT 
YOr.P/WToT 
ZOcP/WTPT 

IF  I A tMCk  • t.E  • 0 • I GO  TO  S'  ^ 

XPOL-O* 

YPOL-0. 

zpol.o- 

DO  2021  1.1/NM  _ 

RX«I xOPt l |-XGDP)»»2 
RYp I yOP ( I |«YG0PI*»2 

RZ-l/DPl  I |-ZG0PI**2  _ 

XP0l«XPOL*WGT I I |*(RY*RZ 1/^86 >4X1 ( I I 
TPaL>rPeLAwaTi n»tRx«NZi/i«6.4Yi 1 1 1 

2C21  ZPOL»ZPOL»WGTI I l*(HX*Hrt/3S6**ZI(  I I 

PRJNI  230?,XODP,YGDP»ZOuP.hTOT<XPOL,YPOL,ZPOL 
2302  FORMaT(//pX,  'Model  PROPr.RT  I £S  • /SXa  1 CENTER  OF  GRAY l TY- INCHES • / 
1 IPX, 'XCO.1 aE12»6a5Xa 'YCG.i aE12.6a5X, ' ZCQ« « . E 1 2 « >/5X»  ■ 

2'NElGHT-Ln'/IOXAEl2>6/5XA  t INERTIAS  LB- I N-S£C»*2  • / 

3 2X,>IX.'(Ei2.6,5X,'IT.'.ri2-6/5XHI/.',E12.6l 

5 CONTINUE  _ 

C APR  tME  Ai.O  AOtRPRl  lE  ( 3 1 

CALL  EULEwlAPR.PHIpRi IMEPR.PSIPRl 
Si  • SINIpNIPRi 
Cl  • COS  I pHIPR  1 

s2  ■ s In  1 tmepr  1 
c2  • COSIlHEPHl 
C NON  AdARpRlME  <4| 

ABARpRI I, 1 I • 1 .0 


10 
H 

1* 

13 

0020  1* 

0022  lb 
17 

t“ 

0024  1 5 

0025  20 

0026  21 

0027  22 

0020  _ 2 J 

0029  24 

0030  25 

0034  2b 

0035  27 

0025  2« 

002s  29 

30 

0031  31 

0032  32 

0033  33 

0034  34 

QS35 35. 

0027  3b 

0028  37 

0029  3« 

0030  3» 

0031  40 
523241 


0033  42 

0034  43 
_J)035__  44 

0036  45 

0037  4b 

-0032 17 

0039  48 

45 

_Q04Q 50 

51 

52 

0041  83 


54 

55 

5*> 

57 

68 

J!L 


60 

61 

-62 


63 

6» 

65 

0047 

6b 

0048 

67 

OO45 _ 

66 

0050 

6? 

0051 

70 

0052  _ 

7»._ 

0053 

78 

0054 

73 

237 


ABARPRI2. I ) ■ 0.0 
ABARPR(3< I ) ■ 0*0 
ABARPRtl.pl  ■ S 1 »S2/C2 
A8ARpRt2.pl  . CJ 
A8ARPRI3.2)  ■ Sl/Cp 
ABARPR ( 1 1 3 I • C 1 *S?/C2 
ABARPR(2>3l  ■ .SI 
ABARPR (3.3)  ■ C1/C2 
ANGLE  dot  PRIr.ES  (A) 

CALL  MATVf C( A8ARPR.XMPR. AmgOPK.o I 
0 PRIME  (7) 

DPR  <1.1  I ■ 0«0 

DPR! 1 . 2 I . TME0PR*s1-PSI0pr*C1*C2 
DPR  I 1 * 3 I . THEDPR»Cl*PSI0PR»Sl»C2 
DPRl2.ll  ■ -DPRtl»2> 

OPR ( 2. 2 | ■ 0*0 

OPR  I 2. 3 I . -PHIOPR+PS J0PR.S2 
0PRI3.ll  . “DPR (1.31 
DPR  I 3. 2 ) . “OPR  I 2. 3 I 
0PRI3.3)  . 0<0 


DPR  <1.1  I ■ 0.0 

OPR  1 1 . 2 | . TMEDPR*s1-PS1Dpr*C1*C2 
DPR  1 1 . 3 1 . THEDPR»C1*P8I0pr»SI »C2 
DPR  t 2. 1 I « “DPRt 1.21 
0PH(2>2|  ■ 0*0 

OPR  I 2. 3 I . “PHi0PR*PSt0PR.s2 
0PRI3.ll  . “OPR  t 1 » 3 I 
0PRI3.2)  . “OPR  I 2. 3 I 
0PRI3.3)  ■ 0<0 
a Dot  prime  t*> 

CALL  PATMuL(APR,OPr.AOPK| 

ZCMAx  • 0.0 

LOOP  A 

00  2flA0  I » l.NM 
At  DOLBLE  PR  1 11E  ( 9 ) 

CALL  EUlEr ( AIDP.PHjOPt 1 I.THEOPl 1 I.PSIDPt 1 II 
AI  I SO  I 

CALL  PAT«L'L(APR,A1oP.AICI 

THiTAtl)  . -ARSIRIAICIJ.I 1 1 

CT  ■ 1 .Q/rOS ( ThETA ( I I I 


PHK1I  • 
PSJ I 1 I ■ 
I 

VJPI I» 1 I 
VJPI I»2) 


4RSIN( AIC(3.2I*CT) 
jRSINi A I C I 2. 1 I *Ct i 


VJPI I. 1 I ■ XODP-XDPIH 
VJPI  I.  2 I . YOOP-VOPIII  THIS  PAGE  IS  1 
:L00pVJPI1.3,  .Z00P.20P,,) 

DO  2oGO  K ■ 1.3 

I P I I SP 1 1 . K I I 2060.2050. a Oao 

2060  v c • A I c I 3.K I PXLBARt t.K I 
DO  2070  L • (.3 
2070  VC  • VC*Ai>R(3,l  )»VjP(  l.L  I 

IP|VC»ZC«AX|  2050.205O.20A0 
2000  ZCPAX  • vr 
2050  CeMlNUE 

V I P I 1 1 • vJPll.l) 

V IP  I 2 1 • VJPI 1.21 

V IP  I 3 » • vJPI 1.31 

: list 

CALL  PATVfCtADPR.VlP.XV.Oi 

X V I 1 | ■ Xv  I 1 I AXODOT 

XV I 2 | • Xv 1 2 I ♦ VQDOt 
XV  I 3 I ■ Xv(3I*ZQD0t 

special  cond  fbr  soac  on  cards  oo~ 


BUS  PAGE 

raoii  oopt  furnish®  to  ddg  — — - 


C“.“— — —sPECUL  COND  FnR  SOaC  on  CARDS  00  INSERTED  BY  RD  WIDMAYER  0 
C 6-6-76 

C 

C THIS  SECTION  ZEROES  00T  IN  I AL  LINEAR  VELOCITY  COMP  FOR"  lSf  NV  MASSES 
IF  I 1 .GT ,Nv I GO  TO  2193 

PRINT  SoOo.I  

3000  FORMAT  t IX  , '/l*.  .MASS"  '»I6"1 

XVII  1*0. 

X»  1 2 ) “0 . 

XV(3)“0. 


PQ55 7*_. 

0056  76 

0057  7* 

QQ58 ll_ 

0059  7« 

0060  79 

0061 BP.. 

0062  fl 

0063  PX 

0066  83 

0065  8* 

JJ066  J6 

0067  86 

0068  8/ 

0069  88 

0070  83 

0071  90 

_0072  91 

0073  92 

0076  93 

0075 ?6 

0076  95 

0077  96 

007J }7_ 

0079  98 

0080  99 
0081  19° 

0082  101 
0083  102 
0086  1 Q 3 

0085  10* 

0086  105 
0087_  1<J6 

0088  107 

0089  108 
00?0_10?_ 

0091  1 1 0 

0092  111 
0093  112 

0096  M3 

0095  116 

0096  115 

0097  116 

0098  11/ 
0099  J18 

0100  ii* 
0136  120 

0137  121 

0138  122 
0165  123 

0166 If 6 

0167  126 

0168  126 
0169  127 


2193  XOOTt I I.Xyt 1 1 

VUOT  til  m XVI  2 I 
Z 0OT(II  ■ X V | 3 | 


C I16| 

CALL  MATVfCI  AlC. XV.  VIP.  | I 


ED  WIDMAYER  ON  0150  128 
0151  129 

0152  130 

1ST  NV  MASSES  0153  111 
0156  132 

QL54..U3. 

0156  13* 
0155  136 

__ 0156  136 

0157  137 
0159  138 

&|Bft_li» 

0161  160 
0162  161 
_ 0163  162 
0166  163 
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Oil)  • vlpl t I 

V ( I I • V I P ( 2 ) 

Mill  • ylpiai 

C 1 17  ) 

CALL  MATVtClAlDP.XMPR.VlP.j  ) 

P I I 1 * V I p I 1 I 
U < It  • V 1 1>  I 2 ) 

R < l ) • Vlpl  3 ) 

c this  hst  sets  angular  velocities  of  ist  nv  masses  to  io< 
IMI.OT.NvI  GO  TO  3010 
PI  I 1*0. 

U<  I 1*0. 

R t l ) *0 • 

C A 1BAR  118) 

3010  Si  • SlNlpHI I I I I 

Cl  • COsipHK  1 1 ) 

S2  ■ SInItHETA(II) 

C2  • COSI THETA( I | ) 

ABARpRll.pl  • S1*S2/C2 
ABAHpR(2.;l  . Cl 
ABARpR I 3.  ? I ■ S1/C2 
ABaRpR(1»3)  ■ C1*S2/C* 

A8ARpRl2,3l  . -si 
ABARpNI 3. 3 I • C1/C2 

C I 1 9 1 _ 

CALL  OATVfClABARPR.VIP/XV.ol 
2303  PHlOoTl  I >.XVI  1 I 

THEDoTIM  • XV(2|  

PSIOfiT  1 1 ) • XV  { 3 ) 

c eno  lcop  c 

20*0  CONTINUE 

iFtZG'EQ.p.)  Zu**ZcOAX« • On  100 
C IF  HE  GET  H£R(  HE  COMPUTE  NtN  iHETA(I.d|  aNO  PSIlliJ) 

C BEAM  COMPONENTS  IN  AIKFHAme  AXES 
pi  • 3«l*i5926533B979J2»0n 
PI2  • • 50o*PI 

oe  2?00  1. 1 ■ l.JOS  

I * IGIIJI  r 

J * JO  I I J I 

XlJP  • VJpt J>1 )-VJp( I> 1 > 

VldP  ■ VJM J»2|-VJP( I>2| 

21 JP  ■ VJpl J.3I-VJPI I»3) 


..  0165 

)** 

0166 

1 *S 

0167 

1*6 

0168 

1*/ 

0169 

1*6 

0170 

I*» 

0171 

150 

0172 

151 

0172 

152 

153 

15* 

1 56 

156 

0173 

is/ 

0176 

158 

0L75 

15» 

0176 

160 

0177 

161 

0178 

16* 

0179 

163 

0180 

16* 

Q*?l lt9- 

018  2 1 fat 

0183  14/ 

0188-16" 

01SS  1*9 

0186  170 
aiii-in 

0188  172 

0189  173 
QTQ2-17* 

176 

0111  176 
11L 

0112  178 

0113  ITS 
Oil*  lflO 

OHS  181 

0116  182 
fl.112-18  j_ 

0118  18* 

0120  186 


C 

C 


JF  1th  mass  AXES  NOT  PARALLEL  TO  AIRFRAME  TRANSFORM  COMPONENTS  TO  MASS  187 
1FIPSI0PI r ) .EO.O.O.ANO. IMEOPI I ) . EO • 0 . 0 • AND . PH  I DP  I I I .EO.O.O)  188 


200 

2130 


1 GO  TO  20n 
Sl*SlNIPMrDP( I I ) 

ClsCOS ( PH  j DP ( I l 1 
S2*S I N ( THf  OP ( I | | 

C2*C0SI THrOPI I I I 
S3*81N(PS[0P| 1 | | 

C3*C08lPSrOP| I ) ) 

All  l )«C2»c3 
a1|2|»C2*g3 
Al  l3l**S2 

All*l*-Cl.S3*Sl»S2»C3 
Al  |5)*C1*C3*S1»52*S3 
A 1 1 6 ) »Sl *r2 
Al  I 7 l*Sl»s3*Cl»S2»C3 

All8l»»Sl«C3»Cl«S2.33 
A I ( 9 I *C i »c2 

TRANSFORM  ELEMENT  to  MASS  AXES 
XNX«aI I 1 >.X1jP«4!<2I*V1JP»a! « 3) *2  I UP 
VNY*aI  I A ).XIJP«aIIsI*TI.'P«aI  16  1*2  up 
2N2*Al (7I.*IJP»AI ls)*riJP,*|(9)*2IJP 
XlJP.XNX 
rIJP*VNy 
2 1 JP*2N2 

iFlTIJP.NfO*  I <10  TO  2190 
IF  1 81  JP | pi 80 >2170.21 80 


,,  4u 11J3S 


_18? 

190 

191 

-19* 

193 

19* 

19? 


196 

19/ 

19« 

199 

200 

_2Q.». 
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on  o 


PSIljlIjI  • 
THEIjIIjI  • 
60  TO  230n 
PSIIjIIJ)  • 
THEIjIIjI  « 


0*0 

-ATAN2(ZlJP,Xtjpl 


) PSII J( I J)  • 0*0 
THE  I J I I J * • *P  1 2 
IFlZIJP)  ?160'2200,22U0 
) THEIj(Ij)  ■ Pl2 
GO  TO  220n 

) PSJIjlIj)  • ATAH2tyIjP«xI.,P| 

THEIj(IJ)  • -ATAN2(ZIJP,SorTIXIjp*XijP4 

) CONTINUE 
DO  2c90  I.1,NM 
VIPH1-  VjP(I,n 

V IP  1 2 I * V.,P(I,2)  

V IP  I 3 I • V.(Pi  1,3) 

CALL  HATVtCl APR,VIP»XV,o> 

XV(3)  ■ XVI3)4ZG 
XI  l > • XV, 1) 

YlH  ■ XV, 2) 

ZID  • XV, 31 
) CONTINUE 

lF|ATMCK«f)T.O.  ) RETURN 
PRINT  230, 

l FORMAT! lHp, • IJi THEl J( I Jlipsi I J( IJI ' f 
PRINT  230n, IIJ,THEiJ(1JI,pSIIJIIJI,Ij*1 
I FORMAT  tlH  , 15, 1P2E 15 • 5 1 _ 

RETURN 

END 

I M ! 60, UO ) 

im:ci,os,S79Rpv:fi 


•*YIJPI I 


0123  21* 
Ql2t_2l*> 

0125  21* 

0126  21/ 
0127  ?1* 

0128  219 

0129  220 
QL30-221 

0131  222 

0132  223 
0133  22* 

22b 

226 

III 

22b 
01*0  229 

01*1  230 

01*2  231 
01*3  232 

01**  233 

0190  23* 
0190  23b 
9»?1J3* 

0192  23/ 

0193  23b 
0134_23? 

0195  2*0 

0196  2*1 


(CUP  Cl, SO 

SUBROUTINE  PLAYLO  0001  1 

IMPLICIT  pEAL*ai A-H/O-Z I ' t 

INTEGER**  BLANK, A8tRIC»YIeL0,PLAST  3 

MEMBER  NAhE  S79RPYL0  0002 *_ 

0003  b 

this  routine  Cauaulates  stresses  and  determines  yielo  state  ooo*  * 

COMMON/  CoMPL V/PROP I 20, 3 I , PT I M, TMEL I 085 > , CKPT I 085, », 8 I , E ALW I 085, » I 0039 7 

0006  ■' 

COMMON/  IfOPLY/  NE , 08b ) , NoS>  N1 D , 08b ) , nCP ( 085  I , NS, L3  0039  9 

_ __ 0008 IP 

COMMON/  PvL0/SIQB(O85,*I,txYI085,*I, TXZ 1 085, * I , SU 4 OsS, * > , SV 1 085, * 10039  11 

COMMoN/|PvLO/VlELD(08b,«),PLAST(085,6)  12 

COMMON/  IcOMAt/  MAxNM* MAX  I Q5*MAXTBL, I NOP,  0011  19 

A NM,lOS,JpL0T,NPLOT,IPLGW,iP,lPLC,I,J,iPL0TIOl0l,lO|O85'l,JQI085),  0029  l*~ 


8 N|6l0l,N,4lSO,3),ISP(50,3),IJPR|O8b),  IOPLOT ( 010 > 0030  15 

COMMON/COpALL/  C 1 6, 08b ) , P , 50 ) < 0 ( 50  I , R | 90 l/U 1 50 1 » V 1 50 1 « H ( 50  I , X 1 501 1 001 7 1* 

1 V(50>,Z(*0),AI|9>.Aji9),XKREF(6,85),SC(5b,3l«XCI6),  1? 

A XK(306ol.Xt|So>«  1# 

2Y1 I So  I, Z I |5Q),XY1I50I«XZ1 ,50I«YZ1 1 bQ ) , A I J ( 9 1 , B I J I *50 1 , 0 1 J ( 765 ) , J9 

3 DH I ( 085  ) , Oa  1 1 *50  ) , VEt  ( ‘j  1 n ) , RUT  , 50  ) , PH  I 1 50 1 , THE  t A ( 5o ) , P8 1 1 50 1 , 0020  20 

♦ PDOT 1 50 ( • OOOT ) 50 1 • ROM  T , bo | , UOOT 1 50  I , VOOT 1501, ROOT (501, XpMT ( 50  | , 0021  ?1 

5 YCOT  1 5o  I • ZOOT , 50  ) , PM  I DOT , 50  • » THEOtJT  , bO  I , PS  I DOT  ( 50  I , T I ME,  DEL  T AT,  0022  2* 

6XACC(50l,vACC(50l<ZACC(b0|,AlTAJ(9l, xlDOT 1 9 l , FMBAR 1 6» 85 ) , 29 

A DELFM0|3o60l*  ?♦ 

7 PHlIJIo89),THEIJIo85l*PSllJ(08S)  / SUiIDF  1 6, 085 1 » TITLE  I 20 1 , 002*  2b 

8 XL8aRI50,3),FsPBArI50,3) , vEEOOT I 3, 3 ) , DX < 50  I , DY 1 50 > , DZ 1 50  I « 0025  2* 

8 OPIMISOI  .0QIN(S0l,0RlN|5ot,  _ _ 002*  _J7 

8 SEIJl0SSl,DMu<n85l/CEIKI50,3>»  TMAX  ' 0027  2* 

COMMON  /BlANKI/  XX ( 50 1 * XY i 50 1 ' XZ 1 50  ) , XL  I 50 1 , XH( 50  1 , 0006  29 

1 XN 1 50  I , OpX , 50 ) , OPT  1 50  I , OPZ | SO ) , DPL , 50  > • PPM ( 50 1 , OPN 1 90 ) ,PIN|6Q|,  0007  30 

2 C IN ( SO ) , p INI  50 ),Xlll50),y|2l 50 ) , X 1 3 1 5O) ,X1 * 1 50  > , X 1 5 1 90 ) , X 16 1 50 ) , 0008  3l" 

3 XXX  I 085  I • XyK I 085 ) , XZX 1 085 |,XLK(o85),xMK(08S), XNK 1 085 1 , XX J 1 085 1 , 0009  32 

* X VJ  ( 085  l,XZJ(OSS),  XL  J I U85  ) , XMJ  | 0S6  ) , xNj,  Q8S  ) , 0010  39 
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5 Del  1 1 5n I > POLO  I So  1 • MOLD  i 50  > « HOLD ( So  1 t U0LD I 50  »<  VOLO 1501#  0011  34 

6 NeLD(bo>.XOLO|5O>»YOLUl5o>#2t)LD<SO|,PIN0<5O)»OINO(5OI»RINO(5Ol#  0012  35 

7 e<ljl0a5l«0YIJ( 08s  > » 02 1 J ) Qg5 1 < PM  1 OLD ( 50 ) < THEOLO  < SO ) i P8 1 BLO I BO  1 j 0013 Jt 


a TPEM  085  > » TRUPT IOb5|*OTMalF 
oinension  sio* ( as • 

DATA  ASxRf C#flL*NK/*H  »»4H 
SURTiOl-  OSORTiSI 
06  IcO  K • 1 i NS 

ifitipe.ue»tmel(kh  ao  to  joo 

H>NE|KI 
CALCULATION  OF  4XIaL  STRESS 

S IQ A( K I •SijHOF  ( 1 »M  1 /PROP  ( NIDI  * > * 1 > 

MM»NCP<K I 

oe  no  L'l'Mn 

CALCULATION  OF  8ENDIN0  STRESSES  

SlOBiKiL 1.(CKPT(K#|  1 1 I •SUmDF(5/M)7PR0P(NID(K  » j2> I ♦ ( CKPT 1 Kt Lt 2 1 
• «5UHDF(6.M) 

1 /PROP <NID<KI<31 I 


0014  32 

3« 

0039  -3* 

0040  40 

0036  41 

0037  if. 


T*T<K#L|-iCKPT<KjL,3>*8UMdF(2/N)/PK0P(NJD(K),2I ) ♦ I CKPT ( K<  L«  5 1 
• ♦SUmOF(3,M) 

1 /PRflP ( N In  < K 1 < 3 I 1 


T*2(K*L)«|CKPT(K#L#4I *SUMoF < 2<  *1 1 /PROP ( N 10 ( K 1 # 2 1 I ♦ I CkPT ( K#  L*  6 I 
• SUM0F(3,m 


0038  4A 

0039  44 

0940  45 

0041 

0042 
-M14_ 

46 
4 7 

Jt 

0045 

49 

0046 

50 

£047 

_9L 

0048 

92 

0049 

98 

0050 

94 

0051 

0052 


55 

9*> 


1 /PRpP  I N I n < K ) < 3 1 I _ 

C CALCULATION  OF  total  STRESSES 

SiOB(K#L>.SIQBlK<Ll*Sl»i*<K> 

T*Y(K»Ll-TXY(i<,LI*CKPTtKjL»7l*SUHDF|A<ni 

T*2(K*U«TX2lK,unCXPTtK#Liai«SUN0F(  a,M| 

C CALCULATION  OF  principal  stresses 
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